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SECTION  1. 


GENERAL 


FUNCTIONAL  DESCRIPTION 
FOR 

AUTOMATED  BEST  VALUE  MODEL 
DECISION  SUPPORT  SYSTEM 


1.1  Purpose  of  the  Functional  Description. 

This  Functional  Description  for  the  Automated  Best  Value  Model  (ABVM) 
Decision  Support  System  (DSS)  is  written  to  provide: 

a.  The  system  requirements  to  be  satisfied  which  will  serve  as  a 
basis  for  mutual  understanding  between  the  user  and  the  developer. 

b.  Information  on  performance  requirements,  preliminary  design 
considerations,  and  user  impacts  including  fixed  and  continuing 
costs . 

c.  A  preliminary  basis  for  development  of  system  tests. 

1.2  Project  References. 

This  effort  is  an  extension  of  the  development  of  the  ABVM  (formerly  the 
Defense  Logistics  Agency  (DLA)  Vendor  Rating  System  or  DVRS)  under  DLA 
Operations  Research  office  (DORO)  projects  DLA-92-P10164 ,  DLA-94-P20249 
and  DLA- 94-P20250 .  This  effort  will  lead  to  the  development  of 
management  information  software.  The  sponsor  for  this  project  is  the 
Headquarters ,  DLA  Directorate  of  Procurement  (AQP) .  This  system  will  be 
utilized  by  procurement  personnel  at  DLA's  supply  centers. 

Applicable  reference  documents  include: 

a.  Paul  Grover,  Randal  Wendell,  Major  Mark  Melius  and  Donna 
Smith,  "Defense  Logistics  Agency  Vendor  Rating  System,"  DLA-92- 
P10164 ,  DLA  Operations  Research  and  Economic  Analysis  Office, 
September  1992. 

b.  Paul  Grover,  Randal  Wendell,  Major  Mark  Melius  and  Donna 
Smith,  "Defense  Logistics  Agency  Vendor  Rating  System  -  Technical 
Report,"  DLA-92-P10164,  DLA  Operations  Research  and  Economic 
Analysis  Office,  August  1992  (unpublished  draft) . 

c.  Analytic  Services  Agreement,  Automated  Best  Value  Model  (ABVM) 
Decision  Support  System,  DLA-XX-P20250,  March  1993.  (Appendix  A) 

d.  DLA  Operations  Research  Office  letter,  Subject:  Revised 
Automated  Best  Value  Model  (ABVM)  Study  Advisory  Group  (SAG) 
Meeting  Minutes,  13  April  1993. 

e.  DLA  Operations  Research  Office  letter.  Subject:  Automated 
Best  Value  Model  (ABVM)  Decision  Support  System  Report  Formats 
(Project  Number,  DLA-XX-20250) ,  15  June  1993. 
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f.  DoD  STD  7935A,  Military  Standard  DoD  Automated  Information 
Systems  (AIS)  Documentation  Standards,  31  October  1988. 

1.3  Terms  and  Abbreviations. 


Acronym  Definition 


ABVM 

DLA 

DORO 

DPACS 

DSS 

SAMMS 


Automated  Best  Value  Model 
Defense  Logistics  Agency 
DLA  Operations  Research  Office 
DLA  Preaward  Contracting  System 
Decision  Support  System 

Standard  Automated  Materiel  Management  System 


SECTION  2.  SYSTEM  SUMMARY 

2 . 1  Background . 

ABVM  has  been  developed  as  a  means  of  assisting  DLA  contracting  officers 
in  making  awards  on  the  basis  of  the  best  overall  value  to  the 
Government,  rather  than  strictly  on  the  lowest  bid  price.  ABVM  is 
designed  to  be  implemented  as  part  of  DPACS  at  several  of  DLA' s  Supply 
Centers . 

The  proposed  system  is  a  DSS  which  can  be  used  to  provide  management 
reports  and  to  assess  the  benefits  achieved  through  the  implementation 
of  ABVM.  It  is  likely  that  this  DSS  will  interface  primarily  with  DPACS 
but  may  also  be  required  to  interface  with  SAMMS  to  obtain  some  of  the 
required  data. 

2.2  Objectives. 

The  proposed  system  will  provide  the  following  capabilities: 

2.2.1  The  ability  to  generate  standard  management  reports  for 
evaluating  the  implementation  of  ABVM.  Standard  reports  may  be 
generated  on  a  periodic  basis  (e.g.,  monthly),  or  may  be  generated  in  an 
on-line  session. 

2.2.2  An  ad  hoc  query  capability  for  non-standard  reports.  This 
capability  will  allow  on-line  access  to  identified  data  elements  for 
formulation  of  non-standard  queries. 

2 . 3  Existing  Methods  and  Procedures . 

There  is  currently  no  method  for  examining  DLA's  ABVM  program.  Current 
management  reports  were  developed  prior  to  the  ABVM  program,  and  do  not 
provide  appropriate  or  sufficient  information  to  evaluate  the  ABVM 
program.  Figure  1  provides  an  extremely  simplified  generic  overview  of 
the  existing  procurement  information  flow  utilizing  the  ABVM  program.  A 
purchase  request  identifies  the  requirement  to  obtain  materiel,  the 
procurement  office  prepares  a  solicitation  which  is  made  available  to 
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private  contractors,  interested  vendors  submit  bids  to  the  procurement 
office  describing  the  price  and  terms  they  are  offering,  the  procurement 
office  considers  the  bids  along  with  vendors'  performance  history  to 
evaluate  the  bids,  and  an  award  is  made  to  the  bidder  representing  the 
best  value  to  the  government. 

The  DP ACS  is  used  by  DLA's  procurement  offices  to  assist  in  the 
automation  of  general  procurement  processes.  Additionally,  some  of  the 
historical  award  information  within  DLA  is  maintained  in  SAMMS .  Because 
the  ABVM  program  is  in  its  infancy,  evaluating  its  implementation 
currently  would  entail  writing  special  programs  to  extract  appropriate 
information  from  DPACS  and  SAMMS. 


Figure  1  -  Overview  of  Procurement  Information  Flow 


2.4  Proposed  Methods  and  Procedures. 

The  ABVM  DSS  will  provide  a  new  capability  for  assessing  the 
implementation  of  the  ABVM  program.  Management  will  be  able  to  access 
the  ABVM  DSS  independent  of  existing  systems  (unless  the  system  is 
designed  to  directly  access  current  production  databases) .  The 
relationship  of  the  ABVM  DSS  to  existing  programs  and  processes  is 
depicted  in  Figure  2 . 
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2.4.1  Summary  of  Improvements . 

The  ABVM  DSS  does  not  directly  support  DLA's  procurement  processes 
(other  than  in  an  informational  manner) ,  therefore,  it  will  not  in 
itself  directly  improve  these  processes.  However,  since  the  ABVM  DSS 
will  allow  evaluation  of  ABVM  program  implementation,  it  may  identify 
areas  where  the  implementation  should  be  adjusted  to  yield  greater 
benefits.  Insight  gained  from  use  of  the  ABVM  DSS  may  also  yield 
improvements  in  other  areas  as  well . 

2.4.2  Summary  of  Impacts . 

2 . 4 . 2 . 1  User  Organizational  Impacts . 

The  DLA  user  organizations  will  include  AQP  and  the  DLA  Supply  Centers. 
These  users  are  not  anticipated  to  have  any  significant  user 
organizational  impacts  except,  perhaps,  for  the  designation  of  a  user 
point  of  contact  to  serve  as  liaison  with  the  computer  operating  center 
on  issues  related  to  this  system. 

Because  this  system  is  intended  to  utilize  currently  existing  databases, 
no  additional  support  personnel  are  envisioned  to  be  required.  Since 
this  is  not  a  mission  critical  system,  no  contingency  operations  will  be 
required. 
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2. 4. 2. 2  User  Operational  Impacts. 

The  user's  interface  with  the  computer  operating  center  will  primarily 
be  with  regard  to  obtaining  technical  assistance  in  the  development  of 
ad  hoc  reports,  since  the  user  will  likely  not  have  sufficient  technical 
expertise  to  utilize  these  capabilities  of  the  system  without  help. 
Otherwise,  this  will  merely  be  another  system  to  be  supported.  Since 
all  data  will  be  obtained  from  other  systems,  no  additional  burden  is 
expected  for  the  user. 

2. 4. 2. 3  User  Development  Impacts. 

2. 4. 2. 3.1  Training.  Training  will  be  required  during  development  to 
familiarize  the  user  community  with  operation  of  the  system. 

2. 4. 2. 3. 2  Testing.  It  is  assumed  that  various  levels  of  testing  will 
occur.  Users  will  be  required  to  support  testing  through  initial 
operating  capability. 

2.5  Assumptions  and  Constraints. 

2.5.1  Availability  of  Valid  Data. 

The  value  of  this  DSS  is  linked  to  the  availability  of  valid  data.  For 
this  effort,  several  DPACS  database  schemata  have  been  used  to  identify 
sources  of  input  data.  It  has  been  assumed  that  valid  data  is  being 
maintained  for  all  data  elements  (despite  some  indications  to  the 
contrary) .  It  is  beyond  the  scope  of  this  effort  to  judge  the  validity 
of  all  data  elements  being  utilized.  In  those  cases  where  valid  data  is 
not  available  from  the  specified  sources,  alternative  sources  for  these 
data  elements  must  be  identified,  or  the  reports  must  be  modified  to 
address  this  lack  of  available  data . 

2.5.2  Operational  System  Functionality. 

The  ABVM  DSS  will  ;  ot  require  substantial  changes  in  functionality  for 
the  operational  systems  which  provide  data  to  it.  Minor  changes  such  as 
the  collection  of  additional  data  elements  will  likely  be  required. 

2.5.3  Evolving  Data  Requirements . 

Data  requirements  will  likely  evolve  as  users  become  familiar  with  the 
capabilities  of  the  system.  These  changing  data  requirements  may  also 
lead  to  the  requirement  for  new  report  formats . 


SECTION  3.  DETAILED  CHARACTERISTICS 

3.1  Specific  Performance  Requirements. 

The  system  will  provide  two  major  capabilities:  (1)  producing  pre¬ 
defined  standard  reports  through  either  batch  or  interactive  processing; 
and  (2)  processing  ad  hoc  queries  in  an  interactive  environment. 
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3.1.1  Accuracy  and  Validity. 

Accuracy  and  validity  of  the  proposed  data  will  be  dependent  upon  the 
data  extracted  from  the  source  systems  (e.g.,  DPACS,  SAMMS) . 

3.1.2  Timing . 

3. 1.2.1  Response  time  from  receipt  of  input  data  to  availability  of 
system  products:  Collection  of  data  from  source  systems  may  take 
overnight  or  longer  depending  on  the  availability  of  the  source  systems 
Once  the  data  has  been  collected,  some  time  may  be  required  for 
reformatting  into  an  internal  database  format. 

3. 1.2. 2  Response  time  to  queries  and  updates:  The  system  will  not 
update  data.  Response  time  to  queries  may  vary.  Response  time  to 
queries  for  standard  reports  should  be  immediate  (less  than  10  seconds) 
Response  time  to  ad  hoc  queries  should  be  less  than  5  minutes . 

3. 1.2. 3  Sequential  relationship  of  functions:  None. 

3. 1.2. 4  Priorities  imposed  by  types  of  inputs  and  changes  in  modes  of 

operation:  The  ABVM  DSS  is  anticipated  to  operate  in  the  same  mode. 

3. 1.2. 5  Any  deviations  from  specified  response  times  for  peak  load 
periods  or  contingency  operations,  as  applicable:  None. 

3.1.3  Capacity  Limits . 

The  ABVM  DSS  is  designed  to  provide  management  review  of  the  effects  of 
ABVM  implementation  policy,  therefore,  access  to  the  ABVM  DSS  may  be 
somewhat  limited.  It  appears  likely  that  no  more  than  20  users  at  any 
supply  center  would  require  access  to  the  ABVM  DSS,  although  local 
management  may  desire  wider  access  to  the  system. 

As  the  ABVM  DSS  relies  on  data  from  other  sources,  storage  requirements 
will  be  determined  by  the  amount  of  data  extracted  from  these  other 
sources.  If  the  ABVM  DSS  is  designed  to  directly  access  these  source 
systems,  there  would  be  no  additional  storage  requirements,  unless  a 
greater  than  normal  amount  of  data  would  require  to  be  archived.  It  is 
desired  that  at  least  1  year's  worth  of  data  be  available  for  analysis 
of  trends . 

3.2  Functional  Area  System  Functions. 

3.2.1  Standard  Reports . 

The  ABVM  DSS  will  have  the  capability  to  produce  management  reports 
using  standard  formats.  It  is  possible  that  the  system  might  be 
designed  to  allow  both  interactive  and  batch  requests  for  generation  of 
these  standard  reports . 
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3.2.2  Ad  Hoc  Queries. 


This  decision  support  system  will  also  have  the  capability  to  perform  ad 
hoc  queries  to  allow  examination  of  ABVM  related  data  in  other  than  the 
pre-defined  report  formats.  The  ad  noc  query  subsystem  will  allow 
access  to  all  of  the  data  elements  utilized  in  the  standard  reports. 
Because  of  the  specialized  nature  of  the  ad  hoc  query  subsystem,  some 
technical  expertise  may  be  required  for  its  use. 

3.3  Inputs  and  Outputs. 

3.3.1  Inputs . 

Most  information  input  to  the  decision  support  system  is  expected  to  be 
available  in  existing  systems,  however,  a  few  new  data  elements  will  be 
required  to  be  collected.  Appendix  B  is  a  list  of  data  elements  ordered 
by  source;  it  also  identifies  the  reports  (described  below)  in  which 
they  are  used.  The  two  prime  sources  of  data  for  the  DSS  are  DPACS  and 
SAMMS  although  the  collection  of  a  few  new  data  elements  will  be 
required.  Appendix  C  provides  a  list  of  new  data  element  requirements 
by  report.  Current  data  elements  which  will  require  archival  are 
identified  in  Appendix  D. 


3.3.2  Outputs . 

The  ABVM  DSS  will  provide  output  in  11  standard  report  formats.  Desired 
report  formats  for  each  of  the  11  standard  reports  are  provided  in 
Appendix  E.  Outputs  from  the  ad  hoc  query  subsystem  may  be  any  logical 
combination  of  available  input  data  elements.  The  pre-defined  standard 
reports  are  described  below: 

(Report  1)  Summary  ABVM  Application  Statistics  -  Provides,  by 
Center,  an  overall  summary  describing  the  application  of  ABVM  by  Federal 
Supply  Class  (FSC) . 

(Report  2)  Monthly  ABVM  Component  Score  Statistics  -  Provides  a 
breakout  of  ABVM  component  scores  and  Center  average  scores  for  the 
population  of  bids,  awards,  and  vendors. 

(Report  3)  Quality  Vendor  Program  Information  -  Provides  overview 
statistics  for  vendors  that  meet  Quality  Vendor  Program  criteria. 

(Report  4)  Center  ABVM  Implementation  "Benefits"  Indicators  - 
Provides  an  overview  of  changes  to  key  indicators  before  and  after 
implementation  of  the  ABVM  program.  This  report  will  serve  as  the 
baseline  and  primary  source  for  validation  of  ABVM  benefits. 

(Report  5)  Challenge  Statistics  -  Provides  an  overview  of  the 
processing  of  vendor  challenges  to  negative  line  information. 
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(Report  6)  ABVM  Buyer  Performance  -  Provides  a  plot  describing 
buyer  trends  in  making  ABVM  awards  where  each  award  is  represented  by  a 
point.  Points  closer  to  the  origin  (minimal  price  differential  and 
performance  loss)  are  typically  indicative  of  "best"  buys,  although 
other  circumstances  may  prevail. 

(Report  7)  ABVM  Program  Award  Performance  -  Provides  visibility 
of  performance  of  key  indicators  for  awards  made  under  the  ABVM  program 
and  for  awards  made  without  ABVM. 

(Report  8)  Center  ABVM  Statistics  -  Provides  an  overview  of  ABVM 
award  statistics  with  respect  to  socio-economic  status  of  awardees . 

(Report  9)  Center  ABVM  Statistics  by  Solicitation  Consideration 
Factors  -  Provides  an  overview  of  ABVM  award  statistics  with  respect  to 
solicitation  consideration  factors  (ABVM  weights)  and  socio-economic 
status  of  awardees . 

(Report  10)  ABVM  Score  Trends  -  Provides  graphical  presentation 
of  ABVM  scoring  trends  for  the  population  of  vendors  by  Center . 

(Report  11)  Near-term  deliveries  -  ABVM  Differential  Awards  - 
Lists  individual  ABVM  differential  contracts  with  anticipated  deliveries 
so  that  they  may  be  more  closely  monitored. 

3.4  Database/Data  Bank  Characteristics. 

Appendix  B  provides  a  listing  of  data  elements  used  in  this  system. 

3.5  Failure  Contingencies. 

There  are  no  failure  contingencies  for  the  ABVM  DSS  because  it  is  not  a 
mission  critical  system.  Should  the  ABVM  DSS  fail,  it  can  be 
"refreshed"  at  the  earliest  convenience  utilizing  cne  source  databases. 


SECTION  4.  DESIGN  CONSIDERATIONS 

4.1  System  Description. 

Figure  3  provides  an  overview  of  the  ABVM  DSS  and  its  interface  to 
existing  systems . 
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DPACS 

databases 


SAMMS 

databases 


Figure  3  -  Overview  of  ABVM  DSS 


4 . 2  System  Functions . 

Refer  to  Appendix  F  for  a  description  of  the  computations  required  to 
produce  the  standard  ABVM  DSS  reports . 

4.3  Flexibility. 

This  system  is  a  decision  support  system  allowing  management  to  evaluate 
the  implementation  of  a  new  program  -  namely  ABVM.  As  such,  it  is 
difficult  to  predict  all  of  the  potential  ways  that  examination  of  ABVM 
implementation  will  be  desired.  Therefore,  the  design  of  this  system 
should  be  sufficiently  flexible  to  allow  for  changing  management 
requirements  such  as  the  incorporation  of  additional  standard  reports. 

As  future  reports  may  utilize  different  data  elements,  the  design  should 
be  able  to  accommodate  the  use  of  these  additional  data  elements  as 
well . 

4.4  System  Data. 

There  are  no  known  special  design  requirements  related  to  system  data. 

As  stated  previously,  this  system  is  dependent  upon  data  residing  in 
several  other  existing  databases.  Depending  on  the  environment  chosen 
for  development  and  operation  of  this  system,  it  may  be  more  practical 
to  create  a  separate  database  for  this  system  with  periodic  updates  from 
the  other  databases.  However,  other  considerations  may  dictate  a  system 
design  which  utilizes  the  existing  databases  more  directly. 
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SECTION  5 .  ENVIRONMENT 


To  be  determined  (TBD) .  [Sections  5  through  8  should  be  written  by 
system  development  personnel  as  they  require  specific  technical 
expertise . ] 

SECTION  6 .  SECURITY 
TBD 

SECTION  7.  SYSTEM  DEVELOPMENT  PLAN 
TBD 

SECTION  8.  COST  CONSIDERATIONS 
TBD 
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APPENDIX  A 

ANALYTIC  SERVICES  AGREEMENT 
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ANALYTIC  SERVICES  AGREEMENT 
AUTOMATED  BEST  VALUE  MODEL  (ABVM) 
DECISION  SUPPORT  SYSTEM 
DLA-XX-P20250 


SECTION  1  -  STUDY  DESCRIPTION 

1.1  PROBLEM  STATEMENT.  DLA  is  implementing  an  automated  system 
to  assist  buyers  in  evaluating  historical  quality  and 
delivery  performance  in  making  awards.  There  exists  a  need 
to  examine/monitor  the  effectiveness  of  this  system. 

1.2  OBJECTIVES. 

1.2.1  Determine  appropriate  management  evaluation  report¬ 
ing  requirements  for  validation  of  ABVM  benefits. 

1.2.2  Develop  prototype  reporting  system. 

1.3  BACKGROUND.  Project  DLA-XX-P20250  is  a  follow-on  to  project 
DLA-92-P10164. 

1.4  SCOPE. 

1.4.1  The  ABVM  prototype  will  not  be  altered. 

1.4.2  This  project  is  limited  to  the  development  of  a 
functional  description  for  a  decision  support  system 
and  a  prototype  of  this  system. 

1.4.2  Only  data  elements  presently  available  within  DLA 
standard  systems  will  be  utilized. 

1.5  MAJOR  ASSUMPTIONS  AND  CONSTRAINTS. 

1.5.1  Sub- indicators  used  within  ABVM  are  valid  measures 
of  effectiveness. 

1.5.2  Data  required  for  evaluation  of  ABVM  is  available. 


SECTION  2  -  STUDY  APPROACH 

m 

2.1  ANALYTICAL  TECBNIQUES  APPLIED.  DLA-DORO  will  use  applicable 
descriptive  and  inferential  analysis  methods  in  the  design 
of  the  ABVM  Decision  Support  System. 

2 . 2  SPECIAL  REQUIREMENTS . 

2.2.1  Documentation  provided  by  DORO  as  the  functional  -- 
description  of  the  prototype  decision  support  system 
will  not  fulfill  all  requirements  of  DoD  Instruction 

7935.1  AIS  Documentation  Standards.  Further  docu¬ 
mentation  may  be  required  by  a  central  design 
activity  at  the  time  of  implementation. 

2.2.2  The  DLA  hardware  centers  will  provide  advisors  to 
consult  on  center  requirements  for  management  re¬ 
porting  related  to  ABVM. 


A- 2 


2.2.3 


The  prototype  decision  support  system  will  be  off¬ 
line  from  the  current  DLA  standardized  systems  such 
as  SAMMS  or  DPACS,  although  it  will  utilize  data 
generated  from  these  systems. 

2.2.4  Implementation  of  this  prototype  decision  support 
system  will  be  accomplished  in  a  follow-on  effort. 


SECTION  3  -  DELIVERABLES 

3.1  Monthly  progress  reports. 

3 . 2  Prototype  reports . 

3.3  Final  briefing. 

3.4  Functional  description  for  decision  support  system. 


SECTION  4  -  MILESTONES 


4 . 1  ASA  approval 

4.2  Meeting  with  center  representatives 
to  identify  requirements. 

4.3  Reporting  requirements  finalized. 

4.4  Draft  formats  developed. 

4.5  Prototype  methodology  complete. 

4.6  Final  prototype  reports.  . 

4.7  Final  briefing 

4.8  Functional  description  drafted. 

4.9  Functional  description  finalized. 

4.10  Anticipated  Level-of -Effort: 


Organization 
Primarily  Responsible 

LO/DORO _ DLA— PP 

12  Mar  93 

30  Mar  93  30  Mar  93 


12  May  93 
15  Jun  93 
11  Aug  93 

1  Sep  93 
15  Sep  93 

13  Oct  93 
10  Nov  93 
750  hours 
a  cost  of 
§52,500. 


12  May  93 


equating  to 
approximately 


SECTION  5  -  STUDY  MANAGEMENT 

5.1  SPONSORING  ORGANIZATION  POCs. 


DLA-PPR  Contact: 
Phone : 
FAX: 

DLA— PS  Contact: 
Phone: 
FAX: 


Ms.  Catherine  Heretick 
(DSN)  284-6431 
(DSN)  284-0310 

Mr.  Phil  Church 
(DSN)  284-7866 
(DSN)  284-0310 
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5.2  PERFORMING  ORGANIZATION  POCs 


DLA-LO  Contact:  Mr.  Jim  Russell 

Senior  Study  Director, 
Acquisition  Management 
Phone:  (DSN)  284-7227 

FAX:  (DSN)  284-3831 


DLA-DORO  Contact:  Mr.  Kurt  Schwarz 

Lead  Analyst 
Phone:  (DSN)  695-5262 

FAX:  (DSN)  695-5319 

5.3  OTHER  ORGANIZATION  POCs. 

DSAC-OF  Contact:  Mr.  Bill  Eble 

Phone:  (DSN)  850-9707 
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ANALYTIC  SERVICES  AGREEMENT 
AUTOMATED  BEST  VALUE  MODEL  (ABVK) 
DECISION  SUPPORT  8Y8TEM 
DLA-XX-P20250 


CHRISTINE  L.  GALLO 
Executive  Director 

(Plans  &  Policy  Integration) 


Q-, 

BILLY  B^HILLIAMS*^  ~7? 
Executive  Director 
(Procurement) 


Date 


APPENDIX  B 

LIST  OF  DATA  BLHKRNTS  ORDERED  BY  SOURCE 
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Appendix  B  -  List  of  Data  Elements  Ordered  By  Source 


+ - + 

|  listing  notes:  | 

I  I 

|  *  denotes  data  element  which  has  previously  been  identified  as  new  | 

|  and  already  planned  for  incorporation  into  existing  database  | 

I  I 

|  **  denotes  new  data  element  requirement  I 

+ - - - + 


DGSC . P . DVRS0A1 

Type 

Width 

Decimal s 

Reports 

cage 

Character 

5 

5 

contract_delv_date 

Numeric 

6 

5 

contract_mod  number 

Character 

6 

5 

correct ion_date 

Numeric 

6 

5 

nsn 

Character 

15 

5 

project_action_code 

Character 

2 

5 

qtydue 

Numeric 

9 

5 

qty_recpt 

Numeric 

9 

5 

qty_ship 

Numeric 

9 

5 

reason_delay_code 

Character 

2 

5 

receipt_date 

Numeric 

6 

5 

ship_date 

Numeric 

6 

5 

term_code 

Character 

1 

5 

variance_code 

Character 

3 

5 

DGSC.P .DVRS101 

Type 

Width 

Decimals 

Reports 

cage 

Character 

5 

4,7 

cont_line** 

Character 

23 

7 

del_date 

Numeric 

5 

4,7 

fsc 

Character 

4 

4,7 

ship_date 

Numeric 

5 

4,7 

DGSC . P . DVRS701 

Type 

Width 

Decimals 

Reports 

cage 

Character 

5 

4,7 

piin_clin 

Character 

23 

4,7 

caus_cd 

Character 

2 

4,7 

clos_dt 

Numeric 

5 

4,7 

test_dtd 

Numeric 

5 

4,7 

disc_cd 

Character 

2 

7 

doc_typ 

Character 

1 

7 

fsc 

Character 

4 

4,7 

no_crit 

Numeric 

6 

4,7 

no_maj 

Numeric 

6 

4,7 

no_min 

Numeric 

6 

4,7 

no  tested 

Numeric 

6 

4,7 
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dpaca - arch . bidvan 
awarddate 

Type 

Date 

Width 

Decimals 

Reports 

8,9 

award_total* 

Numeric 

16 

2 

1,3,6 

business_size 

Character 

1 

3,4, 8, 9 

business_type 

Character 

2 

3,8,9 

buy_number 

Character 

13 

1,4, 6, 8, 9 

cage_code 

Character 

5 

1,2, 3, 4, 6 
8,9 

delivery_score** 

Numeric 

5 

1 

3 

dlvy_weight* 

Numeric 

3 

9 

dvrs_rating 

Numeric 

5 

1 

4,6,8, 9 

extend_bid_price*  * 

Numeric 

16 

2 

1,3, 6, 8 

qual_weight* 

Numeric 

3 

9 

quality_score** 

Numeric 

5 

1 

3 

dpaca - arch . mudkay 

Type 

Width 

Decimals 

Reports 

buy_number 

Character 

13 

8,9 

set_aside_flag 

Character 

1 

8,9 

dpaca-dvra . vr_crata 

Type 

Width 

Decimals 

Reports 

avg_days_late 

Numeric 

5 

1 

2 

cage_code 

Character 

5 

2,3 

contract_l ines 

Numeric 

6 

2 

del ivery_score 

Numeric 

5 

1 

2,3 

labtest_def icits 

Numeric 

5 

1 

2 

on_time_pct 

Numeric 

5 

1 

2 

overall_score 

Numeric 

5 

1 

2,3 

package_def icits 

Numeric 

5 

1 

2 

product_def icits 

Numeric 

5 

1 

2 

qual ity_score 
score_date** 

Numeric 

Date 

5 

1 

2,3 

2 

dpaca -dvrs . vrf_rate 

Type 

Width 

Decimals 

Reports 

avg_days_late 

Numeric 

5 

1 

2 

delivery_score 

Numeric 

5 

1 

2 

fsc_code 

Character 

4 

2,10 

labtest_def icits 

Numeric 

5 

1 

2 

on_time_pct 

Numeric 

5 

1 

2 

overall_score 

Numeric 

5 

1 

2,4,10 

package_de f i c i t s 

Numeric 

5 

1 

2 

product_def icits 

Numeric 

5 

1 

2 

quality_score 

score_date** 

Numeric 

Date 

5 

1 

2 

2,4,10 

B-3 


dpacs -dvrs. vrf crate 

Type 

Width 

Decimals 

Reports 

a vg_days_l at e 

Numeric 

5 

1 

2 

cage_code 

Character 

5 

2,3 

critical_quality_defic 

iencies** 

Numeric 

6 

3 

del ivery_score 

Numeric 

5 

1 

2,3 

fsc_code 

Character 

4 

2,3 

labtest_def icits 

Numeric 

5 

1 

2 

on_time_pct 

Numeric 

5 

1 

2 

overal l_s  core 

Numeric 

5 

1 

2,3 

package_de  f i c i t s 

Numeric 

5 

1 

2 

pct_on_t ime_cl ins * * 

Numeric 

5 

1 

3 

productdef icits 

Numeric 

5 

1 

2 

qualityscore 

scoredate** 

Numeric 

Date 

5 

1 

2,3 

2 

dpacs . dwarf  db 

Type 

Width 

Decimals 

Reports 

abvm_clause* 

Character 

1 

1,2, 3, 6, 7, 
8,9,11 

abvm_dlvy_qual * 

Character 

1 

9 

abvm_j)ric  jperf  * 

Character 

1 

9 

abvm_qual_dlvy* 

Character 

1 

9 

buy_number 

Character 

13 

1,4,6, 8, 9, 

11 

cage_code 

Character 

5 

1,2, 3, 4, 6, 
8,9,11 

contract_no 

Character 

13 

7,11 

differential** 

Numeric 

16 

2 

1,3,7,8,11 

nsn 

Character 

15 

1,2, 3, 4, 6, 

11 

total_cost_price 

Numeric 

16 

2 

1,3, 6, 8, 9 

dpacs . opsncon 

Type 

Width 

Decimals 

Reports 

cage_code 

Character 

5 

11 

clin 

Character 

6 

11 

contract_no 

Character 

17 

11 

delivery_date 

Date 

11 

nsn 

Character 

15 

11 

dpacs . soldata 

Type 

Width 

Decimals 

Reports 

abvm_clause*  * 

Character 

1 

1,2, 3, 6 

buy_no 

Character 

13 

1,2, 3, 6 

dpacs . vendor 

Type 

Width 

Decimals 

Reports 

cage_code 

Character 

5 

3,11 

manufacturer** 

Character 

1 

3 

(type_enterprise) 
mfg_f loor_space 

Numeric 

10 

3 

qual ity_vendor_pgm*  * 

Character 

1 

3 
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type_organi zat ion 

Character 

1 

3 

type_owner 

Character 

1 

3 

vend_name 

Character 

30 

3,11 

dpacs . workperf 

Type 

Width 

Decimals 

Reports 

avg_pait 

Numeric 

3 

4 

week_number 

Numeric 

3 

4 

GOR . X . DVRS 00 CD 

Type 

width 

Decimals 

Reports 

challenge  compl_date 

Numeric 

6 

5 

challenge_decsn_date 

Numeric 

6 

5 

challenge_recv_date 

Numeric 

6 

5 

denial_code 

Character 

1 

5 

fsc 

Character 

4 

5 

GOR.X.DVRSOOCQ 

Type 

Width 

Decimals 

Reports 

challenge_compl_date 

Numeric 

6 

5 

challenge_decsn_date 

Numeric 

6 

5 

challenge_recv_date 

Numeric 

6 

5 

denial_code 

Character 

1 

5 

fsc 

Character 

4 

5 

GOR. X. DVRS 0 ODD 

Type 

Width 

Decimals 

Reports 

challenge  compldate 

Numeric 

6 

5 

challenge_decsn_date 

Numeric 

6 

5 

challenge_recv_date 

Numeric 

6 

5 

denial_code 

Character 

1 

5 

fsc 

Character 

4 

5 

GOR . X . DVRS 00 PD 

Type 

Width 

Decimals 

Reports 

challenge_compl_date 

Numeric 

6 

5 

challenge_decsn_date 

Numeric 

6 

5 

challenge_recv_date 

Numeric 

6 

5 

denial_code 

Character 

1 

5 

fsc 

Character 

4 

5 

GOR . X . DVRS00PQ 

Type 

Width 

Decimals 

Reports 

challenge_compl_date 

Numeric 

6 

5 

challenge_decsn_date 

Numeric 

6 

5 

challenge_recv_date 

Numeric 

6 

5 

denial_code 

Character 

1 

5 

fsc 

Character 

4 

5 

GOR. X. DVRS 0 ODD 

Type 

Width 

Decimals 

Reports 

challenge_compl_date 

Numeric 

6 

5 

challenge_decsn_date 

Numeric 

6 

5 

challenge_recv_date 

Numeric 

6 

5 
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5 

5 


denial_code 

fsc 


GOR . X . DVRSOOUQ 

challenge_compl_date 

challenge_decsn_date 

cha 1 1 enge_r e cv_da t e 

denial_code 

fsc 


Character  1 
Character  4 


Type  Width 

Numeric  6 

Numeric  6 

Numeric  6 

Character  1 

Character  4 


Decimals  Reports 
5 
5 
5 
5 
5 
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APPENDIX  C 

NEW  DATA  ELEMENT  REQUIREMENTS 
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Appendix  C  -  New  Data  Element  Requirements 


Filename /Da ta  Element 

Type 

Width 

Decimals 

DGSC.P. DVRS 101 

Character 

23 

cont_line** 

dpacs - arch . bidven 
delivery_score** 

Numeric 

5 

1 

dpacs - arch . bidven 

Numeric 

16 

2 

extend_bid_price* * 
dpacs - arch . bidven 

Numeric 

5 

1 

qua lity_s core** 
dpacs -dvrs . vr_crate 

Date 

score_date** 

dpacs -dvrs . vrfrate 

Date 

score_date** 

dpacs -dvrs . vrfcrate 

critical_quality_defic 

iencies** 

Numeric 

6 

dpacs -dvrs .vrfcrate 
pct_on_t ime_cl ins  *  * 

Numeric 

5 

1 

dpacs -dvrs .vrfcrate 

Date 

score_date*  * 
dpacs . dwarf db 
differential** 

Numeric 

16 

2 

dpacs . soldata 

Character 

1 

abvm_clause*  * 

dpacs .vendor 
manufacturer** 

Character 

1 

( typeenterprise ) 

dpacs . vendor 

qual i ty_vendor_pgm*  * 

Character 

1 

Reports 

1 

3 

1,3, 6,8 
3 
2 

2,4 

3 


3 

2 


1,3, 7, 8, 
1,2, 3, 6 
3 


3 


11 
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New  data  element  requirements  (by  report) 


1.  Summary  ABVM  Application  Statistics 

dpacs . soldata . abvm_clause 

dpacs -arch . bidven . extend_bid_price 

dpacs . dwarf db . differential 

2.  Monthly  ABVM  Component  Score  Statistics 

dpacs . soldata . abvm_clause 
dpacs - dvrs . vrf crate . score_date 
dpacs -dvrs . vr_crate . score_date 
dpacs-dvrs . vrf_rate . score_date 

3 .  Quality  Vendor  Program  Information 

dpacs . soldata . abvm_clause 

dpacs -arch,  bidven .  extend_bid__price 

dpacs -arch. bidven . delivery_score 

dpacs - arch . bidven . qua 1 i ty_s core 

dpacs . dwarf db . differential 

dpacs . vendor . quality_vendor_pgm 

dpacs . vendor . manufacturer  ( typeenterprise) 

dpacs-dvrs. vrf crate. critical_quality_def iciencies 

cpacs-dvrs . vrf crate .pct_on_time_clins 

4.  Center  ABVM  Implementation  "Benefits"  Indicators 
dpacs-dvrs . vrf_rate . score_date 

5.  Challenge  Statistics  -  none 

6.  ABVM  Buyer  Performance 

dpacs . soldata . abvm_clause 

dpacs -arch . bidven . extend_bid_price 

7 .  ABVM  Program  Award  Performance 

dpacs . dwarf db . differential 
DGSC.P.DVRS101  --  cont_l ine  (23) 

8.  Center  ABVM  Statistics 

dpacs-arch . bidven . extend_bid_price 
dpacs . dwarf db . differential 

9.  Center  ABVM  Statistics  by  Solicitation  Consideration  Factors  -  none 

10.  ABVM  Score  Trends 

dpacs-dvrs . vrf_rate . score_date 
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11.  Near-term  Deliveries  -  ABVM  Differential  Awards 
dpacs . dwarf db . differential 
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APPENDIX  D 

CURRENT  DATA  ELEMENTS  REQUIRING  ARCHIVAL 
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Appendix  D  -  Current  Data  Elements  Requiring  Archival 


DGSC.F.DVRS101 

cage 

cont_line** 

del_date 

fsc 

ship_date 

DGSC. P .DVRS701 

cage 

piin_clin 

caus_cd 

clos_dt 

test_dtd 

disc_cd 

doc_typ 

fsc 

no_crit 

no_maj 

no_min 

no_tested 

dpacs . dwarf db 

abvm_clause* 

abvmdl vy_qual * 

abvm_pric_perf * 

abvm_qual_dlvy* 

buy_number 

cage_code 

contract_no 

differential** 

nsn 

total_cost_price 

dpacs . soldata 
abvm_clause*  * 
buy_no 

dpacs - dvrs . vrf _rate 
fsc_code 
overall_score 
score  date** 
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APPENDIX  B 

STANDARD  REPORT  FORMATS 
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Acronyma/Abbreviationa  Da ad  in  Report  Formats 

ABVM  Automated  Best  Value  Model 

CAGE  Contractor  and  Government  Entity 

CDD  Contract  Delivery  Date 

CLIN  Contract  Line  Item  Number 

DSC  DLA  Supply  Center 

PSC  Federal  Supply  Class 

LDV  Low  Dollar  Value 

NSN  National  Stock  Number 

SDB  Small,  Disadvantaged  Business 
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.  Summary  ABVM  Application  Statistics 
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.  Challenge  Statistics 


Sort  =  FSC 


ABVM  Buyer  Performance 
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.  ABVM  Program  Award  Performance 


s 

5  ®  — 

si  « 

$  ^  T 
«S  5  # 

®  £ 
o  5; 
c  ^ 

8!  .£ 

t  O 
Q  i  « 


o  o 

£  «  i. 

O  +-*  4~J 

o  W  w  cfl 

<0  ®  «  0)  ® 

s  f  °  8  ! 

^  >  CO 

a>  o  o  o  o 

I  I  c  ■§  -§ 

®  ®  ®  2  ®  ® 

»*-*-*♦-  ■*-  Hz 
000^00 
5  5  5  s  j  } 

O  O  O  ~  ®  ® 

_i  _»  _i  O  Z  Z 


o 

®  g 

gs. 
2  ®  ® 
£  H- 

tS  ro  o 

5  £  § 

o>  o  O 

=e  £  c 

®  «  ® 
»*-  »*-  -t 

*4-  *♦-  4-* 

O  O  I. 

5  5i" 
°  °  6 


O  *£  4-i 

O  W  *“  CO 

co  ®  ©  ©  a) 

Sfs  8! 

I  os 

^  1  "  -E 
®  ®  ®  5  ®  « 

h-  <♦-  h-  -t  2;  ^ 
*♦—  h-  *♦-  4-»  **r  tt 

O  O  O  1_  O  0 

5  5  5  £  ?  I 

°  °  °  o  z  z 


o 

®  g 

8  s  ^ 

«  ®  ®  ® 
J-  ;£  k- 

w  .S’  o  g 

?  >  B5 


CO 

O) 

4-* 

O 

0 

0 

0 

CO 

!c 

c 

c 

C 

0> 

c 

*» 

w 

V 

H— 

*♦— 

L_ 

05 

H- 

*+- 

k_ 

05 

*♦- 

*♦— 

c 
c 0 
x: 
♦-» 

h_ 

05 

»♦- 

H— 

w 

05 

»4- 

»4- 

0 

(« 

3 

M 

O 

O 

0 

k_ 

O 

O 

ba 

IS 

0> 

5 

5 

5 

05 

x: 

5 

® 

z 

5 

1! 

O) 

fc- 

0 

_j 

0 

_i 

0 

-j 

■•-* 

O 

05 

z 

E 

<0 

— 1 

cS 

.  Center  ABVM  Statistics  by  Solicitation  Consideration  Factors 


M 

2  </> 
4) 

C 

'5> 

3 

to 

® 

CD 

a 


® 

■o 

in 

<  « 

® 

C/3 

CO 

a 

(A 

= 

a 

E 

co 


® 

m 

< 

t 

0} 

w 

« 

E  * 
cn 


</> 

co  <0. 
©  w 
E 

CO 

3 

CD 


(0 

E  * 

CD 


co 

c 

•2  <, 
u 
< 
o 
o 


s  * 

o 

I- 


03 


X 

> 

> 

> 

X 

00 

00 

oo 

X 

— * 

< 

< 

< 

X 

s 

II 

> 

u  > 

> 

> 

« 

o 

> 

> 

> 

e 

o 

> 

> 

> 

o 

(A 

CO 

< 

c 

2  2 

"© 

■co 

c 

a 

"« 

© 

"5 

c 

a 

© 

15 

15 

LL. 

c 

E  2. 

3 

3 

E 

3 

3 

3 

E 

3 

3 

3 

o 

z 

o 

r  ii 

Ml 

O' 

A 

O' 

V 

E 

O 

•c 

CT 

11 

O' 

A 

cr 

V 

c 

o 

•c 

O' 

II 

O’ 

A 

O' 

V 

> 

V 

o-  2: 

>* 

»- 

> 

w 

® 

CL 

> 

k- 

> 

k. 

> 

k. 

o 

a 

> 

k_ 

> 

> 

w 

U 

CD 

c 

n  ® 

© 

© 

A 

© 

© 

© 

.  . 

© 

© 

© 

Cfc 

o 

> 

> 

> 

> 

> 

> 

V 

> 

> 

ii 

e 

®  » 

© 

© 

o 

© 

*© 

*© 

© 

"© 

"© 

"© 

ii 

u 

•c 

0. 

O  "O 

•c 

a. 

■o 

•o 

u 

•e 

a 

T5 

*o 

*o 

Q 

■c 

0. 

■O 

TJ 

“O 

Soil 

E-l  1 
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APPENDIX  F 

PSEUDOCODE  COMPUTATIONS  TO  PRODUCE  REPORTS 


F-l 


Standard  Report  Computations  - 

This  appendix  describes  the  computations  required  to  produce  the  standard  reports 
described  in  this  functional  description.  The  computations  are  described  in  a  form  of 
pseudocode.  The  data  elements  are  generally  described  by  the  full  data  element  name  in 
the  format  system. table. element.  Local  variables  used  to  store  results  of  computations 
are  generally  of  the  simple  form  variable,  except  in  those  cases  where  additional 
hierarchy  or  structure  is  required  to  more  easily  describe  the  results. 


F-2 


t 


1.  Summary  ABVM  Application  Statistics 

Computation*: 

*  first,  compute  differential  for  ABVM  awards 

for  each  award  where  dpaca. dwarfdb.abvn^clause-'y' 
low_bid  •  ain(dp*ca-arch.bidven.extend_bid_price) 
differential  ■  dpaca. dwarf db . total_cost_price  -  low_bid 
differential_percent  -  differential  /  dpaca . dwarf db . total_coat_price 

for  each  PSC, 

sum  nunber_sol ideations 
sum  nutnber_abvm_solici  tat  ions 
sum  nuaber_awards 

percent_abvm  -  nu*ber_abvm_solicitationa  /  number_solicitations 

sum  number_dif ferential  (awards  where  differential  >  0) 

percent_dif ferentialawards  •  number_dif ferential  /  nuoberawards 

tot al_dif ferential  -  sum (differential) 

total_differential ^percent  ■  aum(differential_percent) 

average_dif ferential  -  total_dif ferential  /  number_dif ferential 

average_differentialjpercent  -  total_dif ferential_percent  /  number_dif ferential 

for  all  PSC’s, 

a um/ average  over  all  PSC's 


2.  Monthly  ABVM  Component  Score  Statistics 

Confutations : 
by  PSC 

for  each  buy,  identify  type  (whether  an  ABVM  solicitation) 

for  each  type  of  solicitation  (ABVM  or  non-ABVM)  t  total 
identify  bidding  vendors  (dpacs-arch.bidven.cage_code) 
sum  number_vendors_bidding 

bid_score. [component]  -  sum (dpaca -dvrs .vrferate. [component] )  /  number_vendors_bidding 

(where  (component)  is  on_time_pct .  avg_days_late.  product_def icits,  pac*age_def icits,  labtest_def icits,  delivery^score.  quality_score. 
overall_score) 

identify  winning  vendor  (dpaca .dwarf db.cage_code) 
for  each  PSC 

sum  number_solicitation8 
sum  nuraber_abvm_solicitation8 

f sc. bid_acore. (component]  •  sum (bid_s core. (component) )  /  nuraber_solici tat ions 

f sc -abvm.bid_score. (component)  -  appropriate  sum(bid_score . (component) )  /  number_abvm_aolici tat ions 

f sc- non. bid_score. (component)  -  appropriate  sum (bid_score . (component) )  /  <number_solici tat ions  -  number_abvm_solici tat ions) 
fsc.award_acore. (component)  •  sum (dpacs-dvrs .vrferate . [component)  ->  dpacs .dwarf db . cage_code)  /  number_solici tat ions 
fsc-abvm.award_score. [component]  -  appropriate  sum  .... 
fsc-non.award_score . [component]  -  appropriate  sum  .... 
f sc. population. (component]  -  dpacs - dvrs. vrf _ra t e. (component) 

center. population. [component)  »  sum (dpacs- dvrs. vr_crate. (component)  ->  for  each  CAGE)  /  number_cages 


3.  Quality  Vandor  Program  Information 


Computations: 

t or  each  award  where  dpacs. dwarf db. abvm_cl auee-' y' : 
low_bid  *  min ( dpacs - arch . bidven . extend_bid_pr ice ) 
differential  »  dpacs .dwarf db. total_coBt_pr ice  -  low_bid 

for  each  CAGE,  sum  number_awards  (where  dpacs . dwarf db . cage_code  «  CAGE) 
sum  number_dif ferential  (awards  where  differential  >  0) 
award_value  -  sum (dpacs . dwarf db . total_cost_price) 
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4.  C«nt«r  ABVM  Implementation  "Banafits 


Indicators 


Computation*: 

Cor  each  VSC  and  time  period  (pre-  and  poit-ABVM)  ??? 
days_late  •  dvr»lOl . ship_date  -  dvrslOl . del_date 
if  days_late  >  0  then  true. 

1C  days_late  <  0  then  *et  days_late«0 

sum  numbera wards 

sum  number_late_awarda  (where  days_late  >  0) 

total_days_late  •  eum(days_late) 

delinq_rate  -  numbe r_late_awarda  /  number_awards 

delinq_day*  -  total_days_late  I  number_late_awards 

lab_dedc  »  no_crit  ♦  no_maj  ♦  no_min 

total_te*ted  -  sum(no_teeted) 

total_lab_def ic  -  sum(lab_def ic) 

lab_rate  -  total_lab_def ic  /  total_teated 

■urn  number jprod_defic  (where  teat_dtd«'  •  and  not  a  packaging  deCiciency  (see  below)) 

sum  number_pkg_defic  (where  test_dtd-'  •  and  doc_typ-(2  or  4  thru  9)  and  diec_cd-(P0  thru  P7  or  T4  or  T6)) 

prod_rate  -  numbe r_p r od_de f 1 c  /  number^awerda 

pkg_rate  -  nuraber_pkg_def ic  /  numbe r_award* 

numbe r_ vendors  -  unique  sum  (dpacs-arch .bidven . cage_code) 

numbe r_small_awds  -  sum  awards  where  (dpaca . dwarf db. cage_code  •  dpacs -arch. bidven. cage_code  ->  dpacs- arch. bidven. business_sizeasmall) 
pct_small_awda  -  numbe r_small_awds  /  numbe rawards 

numbernewawds  -  sum  awards  where  <dpaca.dwarCdb.cage_code  •  dpacs -arch.bidven.cage_code  ->  dpacs - arch. bidven . dvrs_rat ing-0 . 0) 
pct_new_awds  -  numbernewawds  /  number_awards 

Notes : 

*  This  report  should  be  generated  by  PSC. 

*  Must  ensure  that  only  PSC'e  with  "clean”  data  are  examined,  to  ensure  that  any  changes  are  not  attributable  merely  to  the  sanitization  oC  data. 

*  Must  still  identiCy  criteria  to  be  used  to  identiCy  "regular"  vendors. 

*  Might  use  lack  of  an  ABVM  score  to  identiCy  "new"  vendors. 


5.  Challenge  Statistics 


Computations: 


by  PSC: 

number_qual_recv  - 
numbe r_qual_appr  • 
numbe r_qual_denied 
number_qual_pend  - 
numbe r_qual_corr  - 
number_delv_recv  . 
number_delv_appr  - 
numbe r_delv_denied 
numbe  r_de 1 v_pend  - 
number_delv_corr  - 


sum  of  records  in  quality  files  (where  challenge_recv_date  >  rpt_start_date) 

sum  of  records  in  dvrsOOpq  k  dvrsODcq  (where  challenge_decsn_date  >  rpt_start_date  and  denial_code  --  ’y’) 

-  sum  of  records  in  dvrsOOpq  k  dvrsOOcq  (where  challenge_decsn_date  >  rpt_start_date  and  denial_code  -  'y') 

sum  of  records  in  dvrsOOpq  (where  challenge_decsn_date  >  rpt_start_date) 

sum  of  records  in  dvrsOOcq  (where  challenge_compl_date  >  rpt_start_date) 

sum  of  records  in  delivery  files  (where  challenge_recv_date  >  rpt_start_date) 

sum  of  records  in  dvrsOOpd  k  dvrsOOcd  (where  challenge_decsn_date  »  rptstartdate  and  denial_code  -•  'y') 

-  sum  of  records  in  dvrs 0 Odd  (where  challenge_decsn_date  >  rpt_start_date  and  denial_code  -  ’y’) 

sum  of  records  in  dvrsOOpd  (where  challenge_decsn_date  >  rpt_start_date) 

sum  of  records  in  dvrsOOcd  (where  challenge_compl_date  >  rpt_start_date) 


for  denial_code  -  'y' 

delv_denial_days  ■  dvrsOOdd.challenge_decsn_date  -  dvrsOOdd . chalienge_recv_date  (where  challenge__decsn_date  >  rpt_start_date) 


for  denial_code  <>  *y’ 

delv_approval_days  •  (dvrsOOpd  or  dvrsOOcd) . challenge_decsn_date  -  (dvrsOOpd  or  dvrsOOcd) .challenge_recv_date  (where  challenge_decsn_date  > 
rpt_start_date) 

qual_approval_days  -  (dvrsOOpq  or  dvrsOOcq) . challenge_decsn_date  -  (dvrsOOpq  or  dvrsOOcq) . challenge_recv_date  (where  challenge_decsn_date  > 
rpt_start_date) 

delv_correction_days  »  dvrsOOcd. challenge_cc*npl_date  -  dvrsOOcd.challenge_decsn_date  (where  challenge_compl_date  >  rpt_start_date) 

qual_correction_days  -  dvrsOOcq . challenge_compl_date  -  dvrsOOcq. challenge_decsn_date  (where  challenge_corapl_date  >  rpt_start_date) 

average_delv_denial_days  -  sum(delv_denial_days)  /  number_delv_denied 
average_delv_approval_days  -  sum(delv_approval_days)  /  numbe r_de 1 v_app r 
average_delv_correction_days  -  sura ( del v_correct ion_days )  /  numbe r_delv_corr 
average_qual_approval_days  ■  sum(qual_approval_days)  /  numbe r_qual_appr 
average_qual_correction_days  -  sum(qual_correction_days)  /  numbe r_qual_corr 


in  the  file  dvrsOal,  count  occurrences  of  non -blank  fields 
numbe r_crood  -  sum  (non-blank  contract_mod_number) 
numbe r_cage  -  sum (non -blank  cage) 
number_nsn  -  sum  (non -blank  nsn) 
numbe r_cdd  ■  sum (non-blank  contract_delv_date) 
number_ship  -  sum (non -blank  ship_date) 
number_recv  -  sum (non -blank  receipt_date) 
number_var  -  sum (non-blank  variance_code) 
number_r8n  -  sum (non-blank  reason_delay_code) 
numbe r_ term  -  sum (non-blank  term_code) 
number_proj  -  sum (non-blank  project_action_code) 
numbe r_q_due  »  sum (non-blank  qty_due) 
numbe r_q_ rev  ■  sum (non-blank  qty_recpt) 
number_q_shp  -  sum (non-blank  qty_ship) 
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6.  ABVM 


Buyer  Performance 


Computations: 

for  aach  FSC 

for  ssch  sward  with  dpacs. dwarf db.abvmclause  •  »y» 
low_bid  -  min  (dpacs -arch .  bidvan .  axtendwbid__price ) 
diffarantial  -  dpacs .dwarf db. total_cost_pr ica  -  low_bid 
di f f arant ial jparcant  -  diffarantial  /  low_bid 
hijparf  -  max (dpacs -arch. bidvan. drvs_rating) 

parfloss  ■  hi_parf  -  dpac s- arch. bidvan. drvs_rating (whara  dpacs -arch. bidvan. cagecode  -  dpacs . dwarf db . cage  code) 
parf_loss_j>arcant  -  parf_loss  /  hi_parf 

plot  diff arant ial_parcant  varsus  parf_loss_parcant 


7.  ABVM  Program  Award  Performance 

Computations : 
for  aach  PSC 

thraa  categories  idantified  by 

ABVM  diffarantial:  dpacs. dwarf db.abvm_clauae  ■  'y  •  and  dpacs .dwarf db. diffarantial  >  0 
ABVM  no-diffarantial :  dpacs. dwarf db . abvmclause  -  *y'  and  dpacs .dwarf db. diff arant ial  »  0 

Non -ABVM :  dpacs. dwarf db . abvm_clausa  ■  ’ n ‘ 

match  dvrslOi.cont_lina  to  dpacs. dwarf db.contract_no 
for  aach  category 

days^lata  -  dvrslOl.ship^data  -  dvrslOl  deldata 
if  days_late  >  0  than  lata-.trua. 
if  daya_lata  <  0  then  sat  days_late-0 
sum  numbs r_a wards 

sum  number_late_awards  (whara  days_lata  >  0) 
total_days_lata  -  sum(days_late) 
delinq_rate  -  numbs r_lata_awarda  /  numbs r_a wards 
dalinq_days  -  total_days_late  /  numbs r_ 1 a t e_a w  a  rds 
match  dvrs701.piin_clin  to  dpacs .dwarf db. contract_no 

for  aach  category: 

l«b_dafic  -  no_crit  ♦  no_maj  ♦  no_min 
total_taatad  -  sum(no_tastsd) 
total_lab_defic  -  sum  ( lab_.de  f ic) 
lab_rate  -  total_lab_dafic  /  total_tested 

sum  numbsr_prod_dsf ic  (where  test_dtd»’  •  and  not  a  packaging  deficiency  (see  below)) 

aum  number jpkg_defic  (where  test_dtd-’  •  and  doc  typ- (2  or  4  thru  9)  and  disc_cd-(P0  thru  P7  or  T4  or  TS) ) 
sum  numbs r_awsrds 

prod^rate  -  numbs r_pr od  ds f i c  /  number_awards 
P*g_rate  -  number _pkg_defic  /  numbs r_awards 

Notes : 

*  Must  match  ABVM  award  information  to  performance  information. 


8.  Canter  ABVM  Statistics 


Computations : 

for  start_date  <»  dpacs -arch.bidven.award_date  <■  end_date 

for  each  socio-economic  category  77  how  to  determine  aach  category  77 

for  each  award  whara  dpacs. dwarf db.abvm_elause* 'y • : 
low^bid  -  min ( dpacs -arch.bidven. ext end_bid_pr ice) 
diffarantial  -  dpacs. dwarf db. total_cost_price  -  lowbid 
differential_percent  -  differential  /  dpacs. dwarf db . total_costj»rice 

score_delta  *  dpacs -arch. bidven . dvrs_rating (dpacs .dwarf db.cage_code)  -  dpacs-arch.bidven.dvrs_rating(low_bid(dpacs-arch.bidven.cage_code) ) 
sum  numbar_awards 

sum  number_low_dollar_value  (where  dpacs. dwarf db . total_cost_price  <  LDV  threshhold) 
per cen t_numbe r_l ow_dol 1 ar  -  number_low_dollar_value  /  number_awards 
total_award_dollars  -  sum (dpacs. dwarf db. total_cost_pr ice) 

value_low_dollar_value  •  sum (dpacs. dwarf db . total_cost_price  <  LDV  threshhold) 
percent_value_low_dollar  »  value_low_dollar_value  /  total_award_dollars 
total_di f t erent ial  -  sum (differential) 
ave_dif f  -  total_differential  /  number_a wards 
ave__diff_pct  *  total_dif farential  /  total_award_dollars 
total_score_delta  -  sum(score_delta) 
ave_score  delta  -  total_score  delta  /  number  awards 
> 
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9.  Centar  ABVM  Statistics  by  Solicitation  Consideration  Factors 


Confutations: 

establish  reporting  period  (start_date,  end_date) 

tor  start_date  <-  dpacs- arch. bidven.award_date  <■  enddate 

determine  coneideretion  factor  category  for  each  award: 

if  (dpac8.dwarfdb.abvm_clauae-'n' )  then 
price_only  -  .true. 

else  if  (dpacs. dwarf db.abvm_clause-'y'  and  dpacs  dwarf db.abvm__pric_perf  «  'X')  then 
price_equl_perf  -  .true. 

else  it  (dpacs. dwarf db-atovo^clause-'y’  end  dpacs  .dwarf db.abvm_pric jperf«'Y' )  then 
price_grtrjperf  -  .true. 

else  if  ( dpacs. dwarfdb.abvm_clause-’y’  and  dpacs. dwarf db. abvm_pric_perf •'2* )  then 
begin 

price_less_perf  •  .true. 

if  (dpacs. bidven.dlvy_weight  -  dpacs. bidven.qual_weight)  then 
delv_equl_qual  -  true. 

else  if  (dpacs .bidven.dlvy_weight  >  dpacs. bidven.qual_weight)  then 
delv_grtr_qual  -  .true. 

else  if  (dpacs .bidve«.dlvy_weight  <  dpacs .bidven. qual_weight)  then 
delv__less_qual  -  .true, 
endif 

end 

endif 

for  each  consideration  factor  category 

{ 

for  each  socio- economic  category  ??  bow  to  determine  each  category  ?? 

sura  nuaber_awards 

total_award_dollars  -  sura (dpacs. dwarf db. total_cost_price) 


10.  ABVM  Scors  Trends 


Computet ions : 

Plot  dpacs- dvrs. vrf_rate.overall_acore  versus  time  <dpscs-dvxs.vxt_rate.BCore_dete> . 

Notes : 

*  Must  determine  how  to  aggregate  scores  across  PSC's.  May  require  additional  confutation  of  raw  data. 


11.  Near- term  Deliveries  -  ABVM  Differential  Awards 


Computations : 
for  each  PSC, 

if  (dpacs. dwarf db.abvra_clause  ■  'y')  then 

if  ( dpacs. dwarfdb. differential  >  0.0)  and  (dpaca .dwarf db.cage_code  -  dpacs . opencon . cage_code)  then 
provide  listing  sorted  by 
dpac  s . opencon . cage_c ode 
dpacs . opencon . del i very_date 
dpacs . opencon . contract_no 
dpacs . opencon . cl in 

endif 

endif 
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APPENDIX  O 

PARTIAL  PROTOTYPE  OF  ABVM  DSS  IMPLEMENTED  IN  DBASE  IV 

1  -  Data  Dictionary 

2  -  Program  Source  Code  Listing 

3  -  Sample  Screens 


G-l 


System:  ABVM  Decision  Support  System 
Author : 

08/12/93  15:17:43 

Database  Structure  Summary 


21  databases  in  the  system 
DWARFDB . DBF 
BIDVEN . DBF 
VRFCRATE .  DBF 
AMD INFO. DBF 
VR- CRATE. DBF 
VRF-RATE . DBF 
VENDOR. DBF 
SOLDATA . DBF 
WORKPERF . DBF 
DVRS101 . DBF 
DVRS701 .DBF 
DVRS00UD . DBF 
DVRS00UQ . DBF 
DVRSOOPD.DBF 
DVRSOOPQ.DBF 
DVRSOODD . DBF 
DVRSOOCQ.DBF 
DVRSOOCD .  DBF 
DVRS0A1  .DBF 
MUD KEY . DBF 
OPENCON .  DBF 


Structure  for  database  :  DWARFDB . DBF 
Number  of  data  records  :  5 


Last  updated  :  08/12/93  at  14:36 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

ABVMCLAUS 

Character 

1 

1 

1 

2 

ABVMD-Q 

Character 

1 

2 

2 

3 

ABVMPP 

Character 

1 

3 

3 

4 

ABVM  Q  D 

Character 

1 

4 

4 

5 

BUY_NO 

Character 

13 

5 

17 

6 

CAGECODE 

Character 

5 

18 

22 

7 

CONTRACT_N 

Character 

13 

23 

35 

8 

DIFFERENTL 

Numeric 

16 

2 

36 

51 

9 

NSN 

Character 

15 

52 

66 

10 

TOTAL  COST 

Numeric 

16 

2 

67 

82 

**  Total  ** 

83 

This  database  appears  to  be  associated  with  index  file/tag (s) : 


:  C:\DATA\DBASE\AWDBUY.NDX 
:  C:\DATA\DBASE\AWDNSN.NDX 
:  C:\DATA\DBASE\AWDCAGE.NDX 
:  C:\DATA\DBASE\AWDCONT.NDX 

Used  by:  RPT-l.PRG 
:  RPT-2.PRG 
:  RPT-4.PRG 
:  RPT-6.PRG 
:  RPT-8.PRG 
:  RPT-9.PRG 
:  RPT-ll.PRG 
:  FSC_STATS 
:  SETUP_FILS 
:  SETP  FILS 


(buy_no) 

(nsn) 

(cage_code+substr (nsn, 1,4) ) 
(substr (nsn, 1 , 4) +contract_n) 


(procedure  in  C:\DATA\DBASE\RPT-1.PRG) 
(procedure  in  C:\DATA\DBASE\RPT-3.PRG) 
(procedure  in  C:\DATA\DBASE\RPT-7.PRG) 
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Structure  for  database  :  BIOVEN . DBF 
Number  of  data  records  :  IS 


Last  updated  :  07/28/93  at  10: 04 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

AWARD_DT 

Date 

8 

1 

8 

2 

awariTtotl 

Numeric 

16 

2 

9 

24 

3 

BUS_SIZE 

Character 

1 

25 

25 

4 

BUS_TYPE 

Character 

2 

26 

27 

5 

BOY_NO 

Character 

13 

28 

40 

6 

CAGE_CODE 

Character 

5 

41 

45 

7 

DELIV_SCOR 

Numeric 

5 

1 

46 

50 

8 

DLVY_WGT 

Numeric 

3 

51 

S3 

9 

DVRS_RATIN 

Numeric 

S 

1 

54 

58 

10 

EXTEND_BID 

Numeric 

16 

2 

59 

74 

11 

QUALWGT 

Numeric 

3 

75 

77 

12 

QUAL  SCOR 

Numeric 

5 

1 

78 

82 

**  Total  ** 

83 

This  database  appears  to  be  associated  with  index  file/tag(s): 

:  C :  \DATA\DBASE\BIDBUY  .  NDX  <buy_no) 

Used  by:  RPT-l.PRG 
:  RPT-4.PRG 
:  RPT-6.PRG 
:  RPT-8.PRG 
:  RPT-9.PRG 

:  COMP_BIDS  (Drocedure  in  C:\DATA\DBASE\RPT-2.PRG) 

:  OPENOTHR  \  rocedure  in  C:\DATA\DBASE\RPT-2.PRG) 

:  GETOTHR  (procedure  in  C:\DATA\DBASE\RPT-3.PRG) 


Structure  for  database  VRFCRATE .  DBF 


Number  of  data  records  :  11 


Last  updated  08/12/93  at 

7:14 

Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

AVGDAYSL 

Numeric 

5 

1 

1 

5 

2 

CAGECODE 

Character 

5 

6 

10 

3 

CRITQUAL 

Numeric 

6 

11 

16 

4 

DELIVSCOR 

Numeric 

5 

1 

17 

21 

5 

FSC_CODE 

Character 

4 

22 

25 

6 

LABTEST_DF 

Numeric 

5 

1 

26 

30 

7 

0N_TIME_PC 

Numeric 

5 

1 

31 

35 

8 

OVERALL_SC 

Numeric 

S 

1 

36 

40 

9 

PACKAGE_DF 

Numeric 

5 

1 

41 

45 

10 

PCT_CLINS 

Numeric 

5 

1 

46 

50 

11 

PRODUCT_DF 

Numeric 

5 

1 

51 

55 

12 

QUAT  SCOR 

Numeric 

5 

1 

56 

60 

13 

SCORb  dt 

Date 

8 

61 

68 

**  Total  ** 

69 

This  database  appears  to  be  associated  with  index  file/tagts) : 

:  C:\DATA\DBASE\VRFCAGE.NDX  ( cage_code+f sc_code) 

Used  by:  RPT-2.PRG 

:  SETUP_FILS  (procedure  in  C:\DATA\DBASE\RPT-3.PRG) 
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Structure  for  database  :  AWDINFO . DBF 
Number  of  data  records  :  5 

Last  updated  :  08/12/93  at  14:37 


Field 

Field  name 

Type 

1 

BUYNO 

Character 

2 

FSC 

Character 

3 

TOT_BIDS 

Numeric 

4 

RTD_BIDS 

Numeric 

5 

BXD_ABVM 

Numeric 

6 

ABVM_CLAUS 

Character 

7 

DIFFERENTL 

Numeri- 

8 

TOTAL  COST 

Numeric 

**  Total  ** 


width 

Dec 

Start 

End 

13 

1 

13 

4 

14 

17 

5 

18 

22 

5 

23 

27 

5 

1 

28 

32 

1 

33 

33 

16 

2 

34 

49 

16 

66 

2 

50 

65 

This  database  appears  to  be  associated  with  index  file/tag (s) : 

:  C:\DATA\DBASE\AWDKEY.NDX  (buy_no) 

:  C:\DATA\DBASE\AWDCAGE.NDX  (cage_code+substr (nsn, 1 , 4 ) ) 


Used  by:  RPT-2.PRG 


Structure  for  database  :  VR-CRATE . DBF 
Number  of  data  records  :  7 


Last  updated  :  08/11/93  at  13:44 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

AVG_DAYS_L 

Numeric 

5 

1 

1 

5 

2 

CAGECODE 

Character 

5 

6 

10 

3 

CONTR_LINE 

Numeric 

6 

11 

16 

4 

DELIVSCOR 

Numeric 

5 

1 

17 

21 

5 

LABTEST_DF 

Numeric 

5 

1 

22 

26 

6 

0N_TIME_PC 

Numeric 

5 

1 

27 

31 

7 

OVERALLSC 

Numeric 

5 

1 

32 

36 

8 

PACKAGEDF 

Numeric 

5 

1 

37 

41 

9 

PRODUCT_DF 

Numeric 

5 

1 

42 

46 

10 

QUALSCOR 

Numeric 

5 

1 

47 

51 

11 

SCORE  DATE 

Date 

8 

52 

59 

**  Total  **  60 


Tnis  database  appears  to  be  associated  with  index  file/tag(s): 

:  C:\DATA\DBASE\VRCAGE.NDX  <cage_code) 

Used  by:  OPEN_OTHR  (procedure  in  C:\DATA\DBASE\RPT-2.PRG) 

:  SETUP_FILS  (procedure  in  C:\DATA\DBASE\RPT-3.PRG) 


Structure  for  database  :  VRF-RATE.DBF 
Number  of  data  records  :  10 


Last  updated  :  08/03/93  at  14:58 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

AVG_DAYS_L 

Numeric 

5 

1 

1 

5 

2 

DELIV_SCOR 

Numeric 

5 

1 

6 

10 

3 

FSC_CODE 

Character 

4 

11 

14 

4 

LABTEST_DF 

Numeric 

5 

1 

15 

19 

5 

0N_TIME_PC 

Numeric 

5 

1 

20 

24 

6 

OVERALL_SC 

Numeric 

5 

1 

25 

29 

7 

PACKAGE_DF 

Numeric 

5 

1 

30 

34 

8 

PRODUCT_DF 

Numeric 

5 

1 

35 

39 

9 

QUAL_SCOR 

Numeric 

5 

1 

40 

44 

10 

SCORE  DATE 

Date 

8 

45 

52 

**  Total  **  53 


This  database  appears  to  be  associated  with  index  file/tag(s): 

:  C:\DATA\DBASE\VRF-RATE.NDX  (fsc_code+dtoc (score_date) ) 

Used  by:  RPT-4.PRG 
:  RPT-10.PRG 

:  C0MP_BIDS  (procedure  in  C:\DATA\DBASE\RPT-2.PRG) 
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Structure  for  database  :  VENDOR. DBF 
Number  of  data  records  :  7 


Last  updated  :  08/11/93  at  13:02 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

CAGB_CODE 

Character 

5 

1 

5 

2 

HANUFACTUR 

Character 

1 

6 

6 

3 

MFG_FL00R 

Numeric 

10 

7 

16 

4 

QUAL_VND_P 

Character 

1 

17 

17 

5 

TYPE_0RG 

Character 

1 

18 

18 

6 

TYPE_OWNER 

Character 

1 

19 

19 

7 

VEND  NAME 

Character 

30 

20 

49 

**  Total  ♦*  50 


This  database  appears  to  be  associated  with  index  file/tag (s) : 

:  C:\DATA\DBASE\VENCAGE.NDX  (cage_code) 

Used  by:  RPT-ll.PRG 

:  SETUP_FILS  (procedure  in  C:\DATA\DBASE\RPT-3.PRG) 


Structure  for  database  :  SOLDATA . DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  15:01 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

ABVM_CLAUS 

Character 

1 

1 

1 

2 

BUY  NO 

Character 

13 

2 

14 

**  Total  ** 

15 

SNAP!  did  not  find  any  associated  index  files 
Used  by:  RPT-6.PRG 

:  GETOTHR  (procedure  in  C:\DATA\DBASE\RPT-3.PRG) 


Structure  for  database  :  WORKPERF . DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  15:26 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

AVG_PALT 

Numeric 

3 

1 

3 

2 

WEEK_NO 

Numeric 

3 

4 

6 

**  Total  ** 

7 

SNAP!  did  not  find  any  associate:',  index  files 
Used  by:  RPT-4.PRG 
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Structure  for  database  :  DVRS101.DBF 
Number  of  data  records  :  3 


Last  updated  :  08/12/93  at  14:28 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

CAGE 

Character 

5 

1 

S 

2 

CONT_LINE 

Character 

23 

e 

28 

3 

DELIV_DT 

Date 

8 

29 

36 

4 

FSC 

Character 

4 

37 

40 

5 

SHIP_DT 

Date 

8 

41 

48 

**  Total  **  49 


This  database  appears  to  be  associated  with  index  file/tag  (s) 

;  C:\DATA\DBASE\A101CONT.NDX  (substr {cont_line, 1, 13) ) 

Used  by:  RPT-4.PRG 

:  SETPFILS  (procedure  in  C:\DATA\DBASE\RPT-7.PRG) 


Structure  for  database  :  DVRS701 . DBF 

Number 

of  data  records  : 

0 

Last  updated  :  07/08/93  at 

14:35 

Field 

Field  name 

Type 

Width 

Dec  Start 

End 

1 

CAGE 

Character 

5 

1 

5 

2 

PI IN  CLIN 

Character 

23 

6 

28 

3 

CAUS  CD 

Character 

2 

29 

30 

4 

TEST_DTD 

Date 

8 

31 

38 

5 

CLOS  DT 

Date 

8 

39 

46 

6 

DISC  CD 

Character 

2 

47 

48 

7 

DOC  TYP 

Character 

1 

49 

49 

8 

FSC 

Character 

4 

50 

53 

9 

NOCRIT 

Numeric 

6 

54 

59 

10 

NO  MAJ 

Numeric 

6 

60 

65 

11 

NO  MIN 

Numeric 

6 

66 

71 

12 

NO  TESTED 

Numeric 

6 

72 

77 

**  Total  ** 

78 

This  database  appears  to  be  associated  with  index  file/tag (s) : 

:  C:\DATA\DRASE\A701PIIN.NDX 

(substr <piin_clin, 1, 

13)  > 

Used  by:  RPT-4.PRG 

:  SETPFILS 

(procedure  in  C:\DATA\DBASE\RPT-7.PRG) 

Structure  for  database 

DVRS00UD . DBF 

Number 

of  data  records 

0 

Last  updated 

07/08/93  at  15:37 

Field 

Field  name 

Type 

Width  Dec 

Start 

End 

1 

CH_COMP_DT 

Date 

8 

1 

8 

2 

CH_DECS_DT 

Date 

8 

9 

16 

3 

CH_RECV_DT 

Date 

8 

17 

24 

4 

DENIAL_CD 

Character 

1 

25 

25 

5 

FSC 

Character 

4 

26 

29 

**  Total  ** 

30 

SNAP! 

did  not  find 

any  associated  index  files 

Used  by:  RPT-5.PRG 
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Structure  for  database  :  DVRSOOUQ.DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  15:37 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

CH_C0MP_DT 

Date 

8 

1 

8 

2 

CH_DECS_DT 

Date 

8 

9 

16 

3 

CH_RECV_DT 

Date 

8 

17 

24 

4 

DENIAL_CD 

Character 

1 

25 

25 

5 

FSC 

Character 

4 

26 

29 

**  Total  **  30 


SNAP!  did  not  find  any  associated  index  files 
Used  by:  RPT-5.PRG 


Structure  for  database  :  DVRS00PD.DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  15:37 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

CH_COMP_DT 

Date 

8 

1 

8 

2 

CHDECSDT 

Date 

8 

9 

16 

3 

CHRECVDT 

Date 

8 

17 

24 

4 

DEN1ALCD 

Character 

1 

25 

25 

5 

FSC 

Character 

4 

26 

29 

**  Total  **  30 


SNAP!  did  not  find  any  associated  index  files 
Used  by:  RPT-5.PRG 


Structure  for  database  DVRS00PQ.DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  15:37 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

CHCOMPDT 

Date 

8 

1 

8 

2 

CH_DECS_DT 

Date 

8 

9 

16 

3 

CH_RECV_DT 

Date 

8 

17 

24 

4 

DENIAL  CD 

Character 

1 

25 

25 

5 

FSC 

Character 

4 

26 

29 

**  Total  **  30 


SNAP!  did  not  find  any  associated  index  files 
Used  by:  RPT-5.PRG 


Structure  for  database  :  DVRS00DD . DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  15:37 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

CH_COMP_DT 

Date 

8 

1 

8 

2 

CH_DECS_DT 

Date 

8 

9 

16 

3 

CH_RECV_DT 

Date 

8 

17 

24 

4 

DENIAL_CD 

Character 

1 

25 

25 

5 

FSC 

Character 

4 

26 

29 

**  Total  **  30 


SNAP!  did  not  find  any  associated  index  files 
Used  by:  RPT-5.PRG 
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Structure  for  database 

DVRSOOCQ . DBF 

Number 

of  data  records 

0 

Last  updated 

07/08/93  at  15:37 

Field 

Field  name 

Type 

Width  Dec 

Start 

End 

1 

CH  COMP  DT 

Date 

8 

1 

8 

2 

CH  DECS  DT 

Date 

8 

9 

16 

3 

CH  RECV  DT 

Date 

8 

17 

24 

4 

DENIAL  CD 

Character 

1 

25 

25 

S 

FSC 

Character 

4 

26 

29 

**  Total  ** 

30 

SNAP! 

did  not  find 

any  associated  index  files 

Used  by:  RPT-5.PRG 

Structure  for  database 

DVRSOOCD . DBF 

Number 

of  data  records 

0 

Last  updated 

07/08/93  at  15:37 

Field 

Field  name 

Type 

Width  Dec 

Start 

End 

1 

CH  COMP  DT 

Date 

8 

1 

8 

2 

CH  DECS  DT 

Date 

8 

9 

16 

3 

CH  RECV  DT 

Date 

8 

17 

24 

4 

DENIAL  CD 

Character 

1 

25 

25 

5 

FSC 

Character 

4 

28 

29 

**  Total  ** 

30 

SNAP! 

did  not  find 

any  associated  index  files 

Used  by:  RPT-S.PRG 

Structure  for  database 

DVRS  0A1.  DBF 

Number 

of  data  records 

0 

Last  updated 

07/08/93  at  14:30 

Field 

Field  name 

Type 

Width  Dec 

Start 

End 

1 

CAGE 

Character 

5 

1 

5 

2 

DELIV  DT 

Date 

8 

6 

13 

3 

MOD  NUM 

Character 

e 

14 

19 

4 

CORRECT  DT 

Date 

8 

20 

27 

5 

NSN 

Character 

15 

28 

42 

S 

PROJ  ACT  C 

Character 

2 

43 

44 

7 

QTY  DUE 

Numeric 

9 

45 

53 

8 

QTY  RECPT 

Numeric 

9 

54 

62 

9 

QTY  SHIP 

Numeric 

9 

63 

71 

10 

RSN  DELAY 

Character 

2 

72 

73 

11 

RECEIPT  DT 

Date 

8 

74 

81 

12 

SHIP  DT 

Date 

8 

82 

89 

13 

TERM  CODE 

Character 

1 

90 

90 

14 

VARIANC  CD 

Character 

3 

91 

93 

**  Total  ** 

94 

SNAP! 

did  not  find 

any  associated  index  files 

Used  by:  RPT-5.PRG 
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Structure  for  database  :  MUDKEY . DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  14:55 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

BUY  NO 

Character 

13 

1 

13 

2 

SET  ASIDE 

Character 

1 

14 

14 

**  Total  ** 

15 

SNAP! 

did  not  find 

any  associated  index 

files 

Used  by:  RPT-8.PRG 
:  RPT-9.PRG 


Structure  for  database  :  OPENCON . DBF 
Number  of  data  records  :  0 


Last  updated  :  07/08/93  at  15:04 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

CAGECODE 

Character 

5 

1 

5 

2 

CLIN 

Character 

6 

6 

11 

3 

CONTRACT_N 

Character 

17 

12 

28 

4 

DELIV_DT 

Date 

8 

29 

36 

5 

NSN 

Character 

15 

37 

51 

**  Total  ** 

52 

SNAP!  did  not  find  any  associated  index  files 
Used  by:  RPT-ll.PRG 
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System:  ABVM  Decision  Support  System 
Author : 

08/12/93  15:17:45 

Database  Field  Summary 


Field  Name 

Type 

Len 

Dec 

Database 

ABVM_CLAUS 

C 

1 

0 

DWARFDB . DBF 
AWDINFO . DBF 
SOLDATA. DBF 

ABVM_D_Q 

C 

1 

0 

DWARFDB . DBF 

ABVMPP 

C 

1 

0 

DWARFDB . DBF 

ABVM_Q_D 

C 

1 

0 

DWARFDB . DBF 

AVG_DAYS_L 

N 

5 

1 

VR- CRATE. DBF 
VRFCRATE . DBF 
VRF-RATE . DBF 

AVG_PALT 

N 

3 

0 

WORKPERF . DBF 

AWARDDT 

D 

8 

0 

BIDVEN . DBF 

AWARDTOTL 

N 

16 

2 

BIDVEN . DBF 

BID_ABVM 

N 

5 

1 

AWDINFO. DBF 

BUSSIZE 

C 

1 

0 

BIDVEN. DBF 

BUSTYPE 

C 

2 

0 

BIDVEN.  DBF 

BUYNO 

c 

13 

0 

DWARFDB . DBF 
SOLDATA . DBF 

BIDVEN. DBF 

MUDKEY . DBF 

AWDINFO. DBF 

CAGE 

c 

5 

0 

DVRS701  .DBF 

DVRS  0A1.  DBF 
DVRS101  .DBF 

CAGE_CODE 

c 

5 

0 

BIDVEN .  DBF 
OPENCON . DBF 

VRFCRATE. DBF 
DWARFDB. DBF 
VENDOR. DBF 
VR-CRATE .DBF 

CAUSCD 

c 

2 

0 

DVRS701 .DBF 

CH_COMP_DT 

D 

8 

0 

DVRS00PQ.DBF 
DVRS  OOPD.  DBF 
DVRSOOUQ . DBF 
DVRSOOCQ . DBF 
DVRSOOUD . DBF 
DVRSOODD.DBF 
DVRSOOCD . DBF 

CH_DECS_DT 

D 

8 

0 

DVRS 00 PD. DBF 
DVRSOOUQ. DBF 
DVRSOODD.DBF 
DVRSOOUD. DBF 
DVRSOOPQ . DBF 
DVRSOOCD. DBF 
DVRSOOCQ. DBF 

CH_RECV_DT 

D 

8 

0 

DVRSOOUQ. DBF 
DVRSOOPQ. DBF 
DVRSOOUD. DBF 
DVRSOODD.DBF 
DVRSOOCD. DBF 
DVRSOOCQ. DBF 
DVRSOOPD . DBF 

CLIN 

C 

6 

0 

OPENCON. DBF 

CLOS_DT 

D 

8 

0 

DVRS701 .DBF 

CONTRACTION 

C 

17 

0 

OPENCON . DBF 

CONTRACT _N 

C 

13 

0 

DWARFDB. DBF 

CONTR_LINE 

N 

6 

0 

VR-CRATE.  DBF 

CONT_LINE 

C 

23 

0 

DVRS101 . DBF 

CORRECT_DT 

D 

8 

0 

DVRS0A1 . DBF 

CRIT_QUAL 

N 

6 

0 

VRFCRATE . DBF 

DELIV_DT 

D 

8 

0 

DVRS101 . DBF 

DVRS0A1  .DBF 
OPENCON . DBF 

DELIV_SCOP. 

N 

5 

1 

VRFCRATE .  DBF 

VRF-RATE. DBF 
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VR- CRATE. DBF 
BIDVEN . DBF 


DENIAL_CD 

C 

1 

0 

DVRSOOCD . DBF 
DVRS  OOCQ.  DBF 
DVRSOODD  .  DBF 
DVRSOOUD .  DBF 
DVRSOOUQ . DBF 
DVRSOOPD . DBF 
DVRSOOPQ . DBF 

DIFFERENT!. 

N 

ie 

2 

DWARFDB . DBF 

AWDINFO . DBF 

DISC_CD 

C 

2 

0 

DVRS701 .DBF 

DLVYWGT 

N 

3 

0 

BIDVEN. DBF 

DOCTYP 

C 

1 

0 

DVRS701 . DBF 

DVRSRATIN 

N 

S 

1 

BIDVEN. DBF 

EXTEND_BID 

N 

16 

2 

BIDVEN. DBF 

FSC 

C 

4 

0 

DVRSOOCQ . DBF 
DVRS101 . DBF 

DVRSOOCD. DBF 

AWDINFO . DBF 

DVRSOODD. DBF 
DVRS701 . DBF 
DVRSOOPD. DBF 
DVRSOOUQ. DBF 
DVRSOOPQ.  DBF 
DVRSOOUD. DBF 

FSCCODE 

c 

4 

0 

VRF-RATE . DBF 
VRFCRATE .  DBF 

LABTESTJ3F 

N 

5 

1 

VRF-RATE. DBF 
VR- CRATE. DBF 
VRFCRATE . DBF 

MANUFACTUR 

C 

1 

0 

VENDOR. DBF 

MFGFLOOR 

N 

10 

0 

VENDOR.  DBF 

MODNUM 

C 

6 

0 

DVRS 0A1. DBF 

NOCRIT 

N 

6 

0 

DVRS701 .DBF 

NOMAJ 

N 

6 

0 

DVRS701 .DBF 

NOMIN 

N 

6 

0 

DVRS701 .DBF 

NOTESTED 

N 

6 

0 

DVRS701.DBP 

NSN 

C 

15 

0 

DVRS0A1 .DBF 

OPENCON . DBF 
DWARFDB. DBF 

ON_TIME_PC 

N 

5 

1 

VR-CRATE.DBF 
VRF-RATE.  DBF 

VRFCRATE .  DBF 

OVERALL_SC 

N 

5 

1 

VR-CRATE.DBF 

VRFCRATE.  DBF 
VRF-RATE. DBF 

PACKAGEDF 

N 

S 

1 

VRF-RATE.  DBF 

VR-CRATE.DBF 
VRFCRATE.  DBF 

PCT_CLINS 

N 

5 

1 

VRFCRATE .  DBF 

PIIN_CLIN 

C 

23 

0 

DVRS701 .DBF 

PRODUCT_DF 

N 

5 

1 

VRF-RATE. DBF 
VR-CRATE.DBF 
VRFCRATE .  DBF 

PROJ_ACT_C 

C 

2 

0 

DVRS0A1 .DBF 

QTY_DUE 

N 

9 

0 

DVRS 0A1. DBF 

QTY_RECPT 

N 

9 

0 

DVRS  0A1.  DBF 

QTY_SHIP 

N 

9 

0 

DVRS0A1  .DBF 

QUAL_SCOR 

N 

5 

1 

BIDVEN. DBF 

VR-CRATE.DBF 
VRFCRATE . DBF 
VRF-RATE. DBF 

QUAL_VND_P 

C 

1 

0 

VENDOR. DBF 

QUAL_WGT 

N 

3 

0 

BIDVEN. DBF 

RECEIPT_DT 

D 

8 

0 

DVRS 0A1 .DBF 

RSN_DELAY 

C 

2 

0 

DVRS 0A1 .DBF 

RTD_BIDS 

N 

5 

0 

AWDINFO. DBF 

SCORE_DATE 

D 

8 

0 

VRF-RATE.  DBF 

VR-CRATE.DBF 

SCORE_DT 

D 

8 

0 

VRFCRATE. DBF 

SET_ASIDE 

C 

1 

0 

MUD KEY. DBF 

SHIP_DT 

D 

8 

0 

DVRS0A1 . DBF 
DVRS101 .DBF 
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TERM_CODE 

C 

1 

0 

DVRS0A1  .DBF 

TEST_DTD 

D 

e 

0 

DVRS701 . DBF 

TOTAL_COST 

N 

16 

2 

AWDINFO .  DBF 

DWARFDB . DBF 

TOT_BIDS 

N 

5 

0 

AWDINFO. DBF 

TYPE_ORG 

C 

1 

0 

VENDOR . DBF 

TYPE_OWNBR 

C 

1 

0 

VENDOR . DBF 

VARXANC_CD 

c 

3 

0 

DVRS0A1 . DBF 

VEND_NAME 

c 

30 

0 

VENDOR . DBF 

WEEK_ NO 

N 

3 

0 

WORKPERF . DBF 
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Procedure  file:  C:\DATA\DBASB\MAIN_MNU.PRG 


System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  OS/12/93  10:25 

Procs  &  Fncts :  BARDEF 
:  BAR POP 


Calls:  BAR_DEF 
:  BARPOP 


(procedure  in  MAIN_MNU. PRG) 
(procedure  in  MAIN_MNU . PRG) 


Documented  08/12/93  at  15:17 


SNAP!  version  5.01 


SET  TALK  OFF 
SET  ECHO  OFF 
CLEAR 
DO  bar_def 

ON  SELECTION  POPUP  main_mnu  DO  barpop 
ACTIVATE  POPUP  main  mnu 


* !  Procedure :  BAR_DEF 

*  J 

* !  Called  by:  MAINMNU.PRG 

*  t 


PROCEDURE  bardef 

DEFINE  POPUP  main_mnu  FROM  4,20  TO  19,70; 

MESSAGE  "  Press  number  of  menu  choice,  or  highlight  and  press  c Enter >" 

DEFINE  BAR  1  OF  mainmnu  PROMPT  "  ABVM  DSS  MAIN  MENU  ■*«■"  SKIP 

DEFINE  BAR  2  OF  main_mnu  PROMPT  "1  -  Summary  ABVM  Application  Statistics" 

DEFINE  BAR  3  OF  mainmnu  PROMPT  "2  -  ABVM  Component  Score  Statistics" 

DEFINE  BAR  4  OF  mainmnu  PROMPT  "3  -  Quality  Vendor  Program  Information" 

DEFINE  BAR  5  OF  main_mnu  PROMPT  "4  -  ABVM  Implementation  Benefits  Indicators" 
DEFINE  bar  6  OF  mainmnu  prompt  "5  -  Challenge  Statistics" 

DEFINE  BAR  7  OF  main_mnu  PROMPT  "6  -  ABVM  Buyer  Performance " 

DEFINE  BAR  8  OF  mainmnu  PROMPT  "7  -  ABVM  Program  Award  Performance" 

DEFINE  BAR  9  OF  main_mnu  PROMPT  "8  -  Center  Statistics  by  Vendor  Type" 

DEFINE  BAR  10  OF  main_mnu  PROMPT  11 9  -  Center  Statistics  by  Solicitation  Factors" 

DEFINE  BAR  11  OF  main_mnu  PROMPT  "A  -  ABVM  Score  Trends" 

DEFINE  BAR  12  OF  main_mnu  PROMPT  "B  -  Near-Term  Deliveries  on  Differential  Awards" 

DEFINE  BAR  13  OF  main_mnu  PROMPT  "X  -  EXIT  FROM  PROGRAM" 

RETURN 


*  ! 
*  i 


Procedure :  BARPOP 
Called  by:  MAIN_MNU . PRG 

Calls:  RPT-l.PRG 
:  RPT-2.PRG 
:  RPT-3.PRG 
:  RPT-4.PRG 
:  RPT-5.PRG 
:  RPT-6.PRG 
:  RPT-7.PRG 
:  RPT-8.PRG 
:  RPT-9.PRG 
:  RPT-10.PRG 
:  RPT-ll.PRG 


#  I  ************** 

PROCEDURE  barpop 
DO  CASE 
CASE  BAR()  =  2 
CLEAR 
DO  rpt-1 
WAIT 
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3 


CLEAR 

CASE  BARO  > 

CLEAR 
DO  rpt-2 
WAIT 
CLEAR 

CASE  BARO  •  4 
CLEAR 
DO  rpt-3 
WAIT 
CLEAR 

CASE  BARO  «  5 
CLEAR 
DO  rpt-4 
WAIT 
CLEAR 

CASE  BARO  »  6 
CLEAR 
DO  rpt-S 
WAIT 
CLEAR 

CASE  BARO  =  7 
CLEAR 
DO  rpt-6 
WAIT 
CLEAR 

CASE  BARO  -  8 
CLEAR 
DO  rpt-7 
WAIT 
CLEAR 

CASE  BARO  -  9 
CLEAR 
DO  rpt-8 
WAIT 
CLEAR 

CASE  BARO  »  10 
CLEAR 
DO  rpt-9 
WAIT 
CLEAR 

CASE  BARO  -  11 
CLEAR 
DO  rpt-10 
WAIT 
CLEAR 

CASE  BARO  »  12 
CLEAR 
DO  rpt-11 
WAIT 
CLEAR 

CASE  BARO  =  13 

DEACTIVATE  POPUP 
CLEAR  ALL 
RETURN 

END CASE 

RETURN 

*:  EOF:  MAIN  MNU.PRG 


*:  Procedure  file:  C:\DATA\DBASE\RPT-1.PRG 
*  . 

*:  System:  ABVM  Decision  Support  System 

* :  Author : 

*:  Copyright  (c)  1993, 

*:  Last  modified:  08/03/93  14:12 

*  : 

* :  Procs  &  FnctS :  C0MP_DIFF 

* :  :  FSC_STATS 

*  :  :  TAB_AWDS 

*:  :  RPT1  HEAD 
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:  RPT1PSC 
:  DSCTAB 
:  RPT1_DSC 

Set  by:  BARPOP  (procedure  in  MAIN_MNU. PRG) 

Calls:  COMP_DIFF  (procedure  in  RPT-l.PRG) 

:  FSC_STATS  (procedure  in  RPT-l.PRG) 

Uses:  DHARFDB . DBF 
:  BIDVEN .  DBF 

Indexes:  AWDBUY.NDX 
:  BIOBUY .  NDX 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


*  rpt-l.prg 

* 

*  program  to  compute  summary  ABVM  application  statistics  (report  1) 

* 

*  28  jul  93 

* 

USE  dwarfdb 

ERASE  awdbuy.ndx 

INDEX  on  buy_no  TO  awdbuy 

USE  bidven  IN  2 

SELECT  2 

ERASE  bidbuy.ndx 

INDEX  ON  buy_no  TO  bidbuy 

SELECT  1 

SET  RELATION  TO  buy_no  INTO  bidven 

SET  SKIP  TO  bidven 

DO  comp_diff 

DO  fsc_stats 

CLOSE  DATABASES 

RETURN 


•  i 

* !  Procedure :  COMP_DIFF 

*! 

* !  Called  by:  RPT-l.PRG 

•  i 


PROCEDURE  compdif f 
* 

*  procedure  to  compute  the  differential  paid  (if  any)  for  each  award 

* 

GOTO  TOP 
SCAN 

SELECT  2 
mbuy  =  buyno 

low_bid  =  bidven- >extend_bid 
SCAN  WHILE  mbuy  =  buy_no 

new_low  «  MIN(low_bid,  bidven- >extend_bid) 
low_bid  *  new_low 
ENDSCAN 
SELECT  1 

DIFF  m  dwarfdb- >total_cost  -  low_bid 
diffjpct  ■  100.0  *  DIFF  /  total_cost 
*  ?  mbuy,  low_bid,  diff,  diff_pct 

REPLACE  dif ferentl  WITH  DIFF 
ENDSCAN 
RETURN 


*  I 

*  I 


*  ! 

*  i 

Procedure : 

FSC_STATS 

t 

*! 

*  i 

Called  by: 

RPT-l.PRG 

i 

*  l 

Calls: 

RPT1HEAD 

(procedure 

in  RPT-l.PRG) 

♦! 

TAB_AWDS 

(procedure 

in  RPT-l.PRG) 
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*1  :  RPT1_FSC  (procedure  in  RPT-l.PRG) 

*■  :  RPT1_DSC  (procedure  in  RPT-l.PRG) 

*! 

*  !  Uses  :  DKARFDB .  DBF 

*  { 

* !  Indexes:  AWDNSN.NDX 

*1 


PROCEDURE  fsc_stats 
* 

*  procedure  to  compute  statistics  by  federal  supply  class  (FSC) 

* 

CLOSE  DATABASES 
USE  dwarf db 
ERASE  awdnsn.ndx 
INDEX  ON  nsn  TO  awdnsn 
GOTO  TOP 
DO  rptl_head 
d_awds  ■  0 
d_dif f  -  0 
dabvm  a  0 
dtdif f  a  o.O 
d_cost  a  o.O 
d_pabvm  =  0.0 
d_pdiff  a  o.O 
d_adiff  a  0.0 
d_apct  a  o.O 
numb_awds  =  0 
numbdif f  a  o 
numbabvm  a  o 
total_diff  a  o.O 
ttl_cost  =  0.0 
pctabvm  a  o.O 
pct_diff  «  0.0 
ave_diff  a  o.O 
ave_pct  «  0.0 
fsc  a  SUBSTR(nsn, 1,4) 

SCAN 

SCAN  WHILE  f SCaSUBSTR (nsn, 1,4) 

DO  tabawds 
ENDSCAN 
DO  rptlf sc 
* 

*  must  reset  statistics  for  next  FSC 

* 

fsc  a  SUBSTRInsn, 1,4) 
numb_awds  a  o 
numb_diff  a  o 
numb_abvm  a  o 
total_diff  a  o.o 

ttl _ cost  =0.0 

pct_abvm  =  o . 0 
pct_diff  =  0.0 
ave_diff  =  0.0 
avejpct  =  0.0 
DO  tabawds 
ENDSCAN 

IF  fsc  <>  '  ' 

DO  rptl_fsc 
END  IF 

DO  rptl_dsc 
RETURN 


* !  Procedure :  TAB_AWDS 

*  I 

*!  Called  by:  FSC_STATS  (procedure  in  RPT-l.PRG) 

*  I 

PROCEDURE  tab_awds 

* 

*  tabulates  award  statistics 
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numb_awda  •  numb_awds  +  l 
IF  abvm_clause  »  'y' 

numb_abvm  »  numb_abvm  +  1 
END  IF 

IF  differentl  >0.0 

numb_di i £  »  numb_diff  +  1 
total_diff  *  total_diff  +  differentl 
ttl_cost  «  ttl_cost  +  total_cost 
END  IF 
RETURN 


Procedure:  RPT1HEAD 

Called  by:  FSC_STATS  (procedure  in  RPT-l.PRG) 


PROCEDURE  rptl_head 
* 

*  prints  output  heading 


?  "Report  1  -  Summary  ABVM  Application  Statistics" 


?  "Number"  AT  8,  "Percent"  AT  18,  "Percent"  AT  28,  "Average"  AT  38,  ,- 
"Average"  AT  48 

?  "FSC"  AT  1,  "Awards”  AT  8,  "ABVM"  AT  19,  "w/  Diff"  AT  28,  "Diff  ($) *  AT  38,  ; 
"Diff  (pet) "  AT  48 

■> 

RETURN 


*  i  ************************************************************ 

*  j 

* !  Procedure :  RPT1_FSC 

*  i 

* !  Called  by:  FSC_STATS  (procedure  in  RPT-l.PRG) 

*  ! 

*!  Calls:  DSCTAB  (procedure  in  RPT-l.PRG) 


PROCEDURE  rptl_f SC 
* 

*  produces  output  statistics  for  each  FSC 

* 

pct_abvm  m  100.0  *  numb_abvm  /  numb_awds 
pct_diff  «  100.0  *  numb_diff  /  numb_awds 
IF  numb_diff  >  0 

ave_diff  *  total_diff  /  numb_diff 
ave_pct  «  100.0  *  total_diff  /  ttl_cost 
ENDIF 
•> 

??  f sc  PICTURE  "XXXX"  AT  1 
??  numb_awds  PICTURE  "99999"  AT  9 
??  pct_abvm  PICTURE  "999.99"  A \  19 
??  pct_diff  PICTURE  "999.99"  AT  29 
??  ave_dif I  PICTURE  "99999.99"  AT  38 
??  ave_pct  PICTURE  "999.99"  AT  49 
DO  dsc_tab 

*  ?  fsc,  numb_awds,  pct_abvm,  pct_diff,  ave_diff 
RETURN 


* !  Procedure :  DSC_TAB 

*  I 

* !  Called  by:  RPT1_FSC  (procedure  in  RPT-l.PRG) 

*  I 

*  I  ************************************************************* 

PROCEDURE  dsc_tab 

* 

*  tabulates  statistics  at  dsc  level 
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d_abvm  «  d_abvm  +  numbabvm 
dawds  «  dawds  +  nurab_awds 
d_diff  »  d_diff  +  numb_di£f 
dt_di£f  »  dt_di££  +  total_diff 
d_cost  »  d_cost  +  ttl_cost 
RETURN 

At************************************************************ 
*  ; 

* !  Procedure :  RPT1_DSC 

*  I 

*!  Called  by:  FSC_STATS  (procedure  in  RPT-l.PRG) 


PROCEDURE  rptl_dsc 
* 

*  computes  and  prints  dsc  summary  statistics 

* 

d_pabvm  =  100.0  *  d_abvm  /  dawds 
d_pdiff  =  100.0  *  d_diff  /  d_awds 
IF  d_dif f  >  0 

d_adiff  =  dt_diff  /  ddiff 
d_apct  =  loo.o  *  dt_diff  /  d_cost 
ENDIF 

? 

7 

??  "DSC"  AT  1 

??  dawds  PICTURE  "99999"  AT  9 
??  d_pabvrn  PICTURE  "999.99"  AT  19 
??  d_pdiff  PICTURE  "999.99"  AT  29 
??  d_adif f  PICTURE  "99999.99"  AT  38 
??  d_apct  PICTURE  ”999.99”  AT  49 
RETURN 

*:  EOF:  RPT-l.PRG 


Procedure  file:  C:\DATA\DBASE\RPT-2.PRG 

System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  08/03/93  IS: 15 


Procs  &  Fncts 


RPT2HDR 

COMP_AWDS 

COMPBIDS 

OPENOTHR 

RPT2TOTLS 

WRT_RCD 

PR0C_INF0 

BID  HDR 


Set  by:  BARPOP 


Calls 


Uses 


Indexes 


RPT2_HDR 

COMP_AWDS 

COMP_BIDS 

OPEN_OTHR 

VRFCRATE . DBF 
DWARFDB . DBF 
AWDINFO . DBF 

VRFCAGE . NDX 
AWDKEY . NDX 
AWD CAGE  .NDX 


Documented  08/12/93  at  15:17 


(procedure  in  MAIN_MNU. PRG) 

(procedure  in  RPT-2.PRG) 
(procedure  in  RPT-2.PRG) 
(procedure  in  RPT-2.PRG! 
(procedure  in  RPT-2.PRG) 


SNAP!  version  5.01 


*  rpt-2.prg 
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*  program  to  compute  ABVM  component  score  statistics  (report  2) 

* 

*  2  aug  93 

* 

USE  vrfcrate 
ERASE  vrfcage.ndx 

INDEX  ON  cage_code+f sc_code  TO  vrfcage 
USE  dwarf db  IN  2 
USE  awdinfo  IN  5 
SELECT  S 

ERASE  awdkey.ndx 

INDEX  ON  buy_no  TO  awdkey 

SELECT  2 

ERASE  awdcage . ndx 

INDEX  ON  cage_code+SUBSTR (nsn, 1, 4)  TO  awdcage 
SET  RELATION  TO  cage_code+SUBSTR (nsn, 1 , 4 )  INTO  vrfcrate 
SET  SKIP  TO  vrfcrate 
DO  rpt2_hdr 
DO  compawds 
•> 

WAIT 

DO  compbids 
DO  open_othr 
CLOSE  DATABASES 
RETURN 

+!*#*********+**++***+**********+***+*#*********#*+**+**##*+**+*#*#****+***++*+ 

•  i 

* !  Procedure :  RPT2_HDR 

★  j 

*!  Called  by:  RPT-2.PRG 

*  ! 

*!*******#*****  +  ***********  +  ***************  +  ************  +  +  '**************##***'  +  * 

PROCEDURE  rpt2_hdr 
CLEAR 
? 

?  "Report  2  -  ABVM  Component  Score  Statistics" 

? 

RETURN 

★I***************************************************************************** 

*  I 

* !  Procedure :  COMPAWDS 

*  i 

* !  Called  by:  RPT-2.PRG 

*  I 

*!  Calls:  RPT2_T0TLS  (procedure  in  RPT-2.PRG) 

*  ! 

* i **#******#******************#*****+++++**#*+*******+**+*++#*****+***#++**#*** 

PROCEDURE  comp_awds 

********** 

*  must  ensure  that  score  is  pulled  for  appropriate  fsc 

********** 

SELECT  2 
GOTO  TOP 
numb_abvm  =  0 
numb_non  =  0 
numb_tot  -  0 
a_overall  =  0.0 
a_ave  =  0.0 
a_deliv  =  0.0 
a_qual  =  0.0 
n_overall  =  0.0 
n_ave  =  0.0 
n_deliv  =  0.0 
n_qual  -  0.0 
x_overall  =  0.0 
x_ave  =  0.0 
x_deliv  =  0.0 
x_qual  =  0.0 
ttl_awds  =  0 
SCAN 

ttl_awds  =  ttl_awds  +  1 
mf sc=SUBSTR (nsn, 1, 4) 
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mcage «cage_code 
*  ?  mfoc,  mcage 

mabvm»abvm_clau3 
SELECT  1 
SEEK  mcage+mfsc 
IF  FOUND 0 

*  ?  vrf crate- >overall_sc 
IF  raabvm  «  'y‘ 

numb_abvtn  =  numb_abvm  +  l 

a_overall  -  a_overall  +  vrfcrate->overall_sc 
a_deliv  =  a_deliv  +  vrfcrate->deliv_scor 
a_qual  »  a_qual  +  vr f crate- >qual_scor 
ELSE 

numb_non  *  numb_non  +  1 

n_overall  =*  n_overall  +  vrfcrate- >overall_sc 
n_deliv  =  n_deliv  +  vrf crate- >deliv_scor 
n_qual  *  n_qual  +  vrf crate- >qual_scor 
END  IF 
ELSE 

*  ?  "unable  to  locate  score" 

END  IF 

SELECT  2 
ENDS  CAN 

a_ave  »  a_overall  /  numb_abvm 

n_ave  =  n_overall  /  numb_non 

a_deliv  =  a_deliv  /  numb_abvm 

aqual  =  aqual  /  numbabvm 

n_deliv  «  n_deliv  /  numbnon 

n_qual  -  n_qual  /  numbjnon 

numb_tot  *  numb_abvm  +  numb_non 

x_ave  =  (a_overall  +  noverall)  /  numb_tot 

x_deliv  =  ( (a_deliv  *  numbabvm)  +  (n_deliv  *  numb_non) )  /  numb_tot 
xqual  »  ( (a_qual  *  numb_abvm)  +  (n_qual  *  numb_non) )  /  numbtot 
DO  rpt2_totls 
RETURN 

********************************************************************************* 

*  t 

* !  Procedure:  RPT2_T0TLS 

*  ! 

* !  Called  by:  COMP_AWDS  (procedure  in  RPT-2.PRG) 

*  j 

*  I  ***************************************************************************** 

PROCEDURE  rpt2_totls 

■p 

?  "Part  2.1  -  Awardee  ABVM  Statistics" 

? 

?  "total  awards  =  “ 

??  ttlawds  PICTURE  "99999"  AT  18 
o 

?  "overall"  AT  26,  "delivery"  AT  35,  "quality"  AT  46 
?  "number"  AT  18,  "average"  AT  26,  "average"  AT  36,  "average"  AT  46 
? 

?  "  abvm  awards"  AT  l 

??  numbabvm  PICTURE  "9999"  AT  20,  a_ave  PICTURE  "999.9"  AT  27,  ; 

a_deliv  PICTURE  "999.9"  AT  37,  a_qual  PICTURE  "999.9"  AT  47 
?  "non-abvm  awards"  AT  1 

??  numbnon  PICTURE  "9999"  AT  20,  n_ave  PICTURE  "999.9"  AT  27,  ; 
n_deliv  PICTURE  "999.9"  AT  37,  n_qual  PICTURE  "999.9"  AT  47 

? 

?  "  all  awards"  AT  l 

??  numb_tOt  PICTURE  "9999"  AT  20,  x_ave  PICTURE  "999.9"  AT  27,  ; 

X_deliv  PICTURE  "999.9"  AT  37,  x_qual  PICTURE  ”999.9”  AT  47 
RETURN 


Uses:  BIDVEN . DBF 
:  VR- CRATE. DBF 
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PROCEDURE  open_othr 
* 

*  developmental  procedure  to  open 

* 

USE  bidven  IN  3 

USE  vr- crate  IN  4 

RETURN 

other  database 

files 

*  l 

*  1 

Procedure : 

COMP_BIDS 

*  t 

Called  by: 

RPT-2.PRG 

*  | 

Calls : 

WRT_RCD 

(procedure 

in  RPT-2.PRG! 

*  1 

PROC_INFO 

(procedure 

in  RPT-2.PRG) 

*  i 

Uses : 

VRF -RATE. DBF 

*  [ 

BIDVEN. DBF 

*  ! 

Indexes : 

AWDBUY . NDX 

*  j 

BIDBUY.NDX 

*  i 

*  i  ***** 

PROCEDURE  comp_bidS 


*  procedure  to  compute  the  statistics  for  bids  for  each  award 

* 

SELECT  2 

ERASE  awdbuy. ndx 

INDEX  ON  buyno  TO  awdbuy 

* 

USE  vrf-rate  IN  6 
USE  bidven  IN  3 
SELECT  3 

ERASE  bidbuy.ndx 

INDEX  ON  buy  no  TO  bidbuy 

GOTO  TOP 

SCAN 

*  store  the  buy  number  to  a  memory  variable 
mbuy=buy_no 

*  fetch  the  corresponding  fsc  for  the  award 

SELECT  2 
GOTO  TOP 
SEEK  mbuy 
IF  FOUND  0 

mfsc=SUBSTR (nsn, 1,4) 

ELSE 

mfsc='  ' 

ENDIF 

* 

SELECT  3 
numb_bid  =  0 
f_overall  =  0.0 
z_overall  =  0.0 

bids  =  0 
ns_bids  =  0 

SCAN  WHILE  mbuy=buy_no 
mcage=cage_code 
bids  =  bids  +  1 

SELECT  1 
GOTO  TOP 
SEEK  mcage+mfsc 
IF  FOUND!) 

numb_bid  =  numb_bid  +  1 

f_overall  =  f_overall  +  vrf crate- >overall_sc 
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END  IF 
SELECT  3 
ENDS  CAN 

IF  numb_bid  >  0 

z_overall  »  f_overall  /  numb_bid 
ELSE 

z_overall  «  0.0 
END  IF 

na_bids  »  bids  -  numb_bid 
mrecno  =  RECNOO 
DO  wrt_rcd 
GOTO  mrecno- 1 
mbuy  =  buy_no 
ENDSCAN 
DO  proc_info 
RETURN 


*  ! 

* !  Procedure :  WRT_RCD 

*  J 

* !  Called  by:  COMP_BIDS  (procedure  in  RPT-2.PRG) 


PROCEDURE  wrt_rcd 
SELECT  5 

IF  .NOT.  SEEK (mbuy) 

APPEND  BLANK 
REPLACE  buy_no  WITH  mbuy 
ELSE 

SEEK (mbuy) 

ENDIF 

REPLACE  fsc  WITH  mfsc 
REPLACE  totbids  WITH  bids 
REPLACE  rtdbids  with  numbbid 
REPLACE  bidabvm  WITH  z_overall 
xrecno  =  RECNOO 
SELECT  2 
SEEK (mbuy) 

IF  FOUND  0 

xclause  =  dwarf db- >abvm_claus 
xdiff  =  dwarfdb->dif ferentl 
xcost  =  dwarfdb- >total_cost 
ELSE 

xclause  =  1  ' 
xdiff  =0.0 
xcost  =  0.0 
ENDIF 
SELECT  5 
GOTO  xrecno 

REPLACE  abvm_claus  WITH  xclause 
REPLACE  dif ferentl  WITH  xdiff 
REPLACE  tOtal_COSt  WITH  XCOSt 
SELECT  3 
RETURN 


*j *********************************************************************+****** 

PROCEDURE  proc_info 


processes  award/bid  information 


SELECT  6 

ERASE  abvmfsc.ndx 

INDEX  ON  fsc_code  TO  abvmf sc 

• 

SELECT  5 

ERASE  awdfsc.ndx 
INDEX  ON  f SC  TO  awdfsc 
DO  bid_hdr 
SCAN 

numb_awds  =  0 
numb_rtd  *  0 
numb_bids  -  0 
sum_score  =  0.0 
nurnbabvm  =  o 
numb_non  »  0 
rtd_abvm  »  0 
rtd_nona  =  0 
sum_a_rtd  =  0.0 
sum_n_rtd  =  0.0 
tot_abids  =  0 
tot_nbids  »  o 

xfsc  ■  fsc 

SCAN  WHILE  xfsc=fsc 

numb_awds  ■=  numb_awds  +  1 
numb_rtd  =  numbrtd  +  awdinfo- >rtd_bids 
numb_bids  =  nurab_bids  +  awdinfo- >tot_bids 
sum_score  =  sumscore  +  (rtd_bids  *  bid_abvm) 

IF  abvm_claus  »  'y' 

nurnbabvm  =  nurnbabvm  +  1 
rtdabvm  =  rtd_abvm  +  awdinfo- >rtd_bids 
totabids  =  totabids  +  awdinfo- >tot_bids 
sum_a_rtd  =  sum_a_rtd  +  (rtd_bids  *  bid_abvm) 
ELSE 

numbnon  =  numbnon  +  1 
rtdnona  -  rtd_nona  +  awdinfo- >rtd_bids 
tot_nbids  «  tot_nbids  +  awdinfo- >tot_bids 
sum_n_rtd  =  sum_n_rtd  +  (rtd_bids  *  bid_abvm) 
ENDIF 
ENDSCAN 

IF  rtdabvm  >  0 

sum_a_rtd  «  sum_a_rtd  /  rtd_abvm 
ELSE 

sum_a_rtd  =0.0 
ENDIF 

IF  rtd_nona  >  0 

sum_n_rtd  =  sum_n_rtd  /  rtd_nona 
ELSE 

sum_n_rtd  =  0.0 
ENDIF 
•> 

??  xfsc  PICTURE  "XXXX"  AT  1 
??  numb_awds  PICTURE  "99999"  AT  9 
??  numb_bids  PICTURE  "99999"  AT  18 
??  numb_rtd  Pi'~TURE  "99999"  AT  28 
IF  numb_rtd  >  0 

sum_score  =  sum_score  /  numb_rtd 
ELSE 


sum_score 

II 

o 

o 

ENDIF 

?? 

sum_score 

PICTURE 

"999.9" 

AT 

38 

?? 

numb_abvm 

PICTURE 

”99999" 

AT 

47 

?? 

sum_a_rtd 

PICTURE 

"999.9" 

AT 

55 

?? 

sum_n_rtd 

PICTURE 

"999.9" 

AT 

63 

xrecno=RECNO () 

* 

*  must  modify  somehow  to  find  the  fsc  score 

*  with  the  most  recent  date,  since  there  may 

*  be  numerous  fsc  scores  archived 

* 

SELECT  6 


probably,  use  of  a  scan  would  help. 
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*  but  the  file  must  be  indexed  differently 

* 

SEEK (xfsc) 

IF  FOUND ( ) 

abvm_fsc  «  overall_sc 
ELSE 

abvm_fsc  ■  0.0 
END  IF 

??  abvmfsc  PICTURE  "999.9"  AT  71 

* 

SELECT  5 
GOTO  xrecno-1 
ENDS CAN 
SELECT  3 
RETURN 


*  !  Procedure :  BID_HDR 

*  I 

*!  Called  by:  PROC_INFO  (procedure  in  RPT-2.PRG) 


PROCEDURE  bid_hdr 

7 

?  "Part  2.2  -  Bidder  ABVM  Statistics" 

•> 

?  “score"  AT  55,  "score"  AT  63,  "FSC"  AT  72 

?  "number"  AT  9,  "total"  AT  18,  "rated"  AT  28,  "average"  AT  37,  "#  ABVM"  AT  47, 

"ABVM"  AT  56,  "non-ABVM"  AT  62,  "ABVM"  AT  72 
?  "FSC"  AT  1,  "awards"  AT  9,  “bids”  AT  19,  “bids"  AT  29,  "score  bid"  AT  36,  ; 

"awards"  AT  47,  "bids"  AT  56,  "bids"  AT  64,  "score"  AT  71 

? 

RETURN 

*:  EOF:  RPT-2.PRG 


*:  Procedure  file:  C:\DATA\DBASE\RPT-3.PRG 


System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

La3t  modified:  08/12/93  10:20 


Procs  &  Fncts:  SETUP_FILS 
:  ADD_AWDS 
:  GET_OTHR 
:  SUM_FSC 
:  SUM_CAGE 
:  OUTINFO 
:  GET_ABVM 
:  GET_F_ABVM 

Set  by:  BARPOP 

Calls:  SETUP_FILS 
:  ADD_AWDS 
:  GET  OTHR 


(procedure  in  MAIN_MNU. PRG) 

(procedure  in  RPT-3.PRG) 
(procedure  in  RPT-3.PRG) 
(procedure  in  RPT-3.PRG) 


* 


Documented  08/12/93  at  15:17 


SNAP!  version  5.01 


*  rpt-3.prg 


program  to  compute  QVP  information  (report  3) 


DO  setup_fils 
SELECT  1 
DO  add_awds 
DO  get_othr 
CLOSE  DATABASES 
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RETURN 


*  J  **< 

*  1 

*  J 

Procedure 

SETUP  FILS 

*  j 

*  i 

Called  by 

RPT -  3 . PRG 

*  i 

*  J 

Uses 

VENDOR . DBF 

*  i 

DWARFDB . DBF 

i 

VR-CRATE. DBF 

*  ! 

VRFCRATE .  DBF 

*  i 

*  i 

Indexes 

VENCAGE.NDX 

*  ! 

AWDCAGE . NDX 

*  i 

VRCAGE.NDX 

*  t 

VRFCAGE.NDX 

PROCEDURE  setup_fils 
* 

*  sets  up  database  files  to  be  used  for  this  report 

* 

*  area  1  »»>  vendor 

*  area  2  ==>  dwarfdb 

*  area  3  »■>  vr-crate 

*  area  4  *=>  vrfcrate 

* 

USE  vendor 

ERASE  vencage.ndx 

INDEX  ON  cage_code  TO  vencage 

* 

USE  dwarfdb  IN  2 
SELECT  2 

ERASE  awdcage.ndx 

INDEX  ON  cage_code+SUBSTR (nsn, 1, 4)  TO  awdcage 
* 

USE  vr-crate  IN  3 
SELECT  3 

ERASE  vrcage.ndx 

INDEX  ON  cagecode  TO  vrcage 

* 

USE  vrfcrate  IN  4 
SELECT  4 

ERASE  vrfcage.ndx 

INDEX  ON  cage_code+f sc_code  TO  vrfcage 
* 

RETURN 


*  1 

*  J 

Procedure : 

ADD_AWDS 

*  * 

*  T 

Called  by: 

RPT- 3  .PRG 

* ! 

Calls : 

SUM_FSC 

(procedure 

in 

RPT- 3 -PRG) 

★  1 

SUM_CAGE 

(procedure 

in 

RPT- 3 .PRG) 

*  ! 

GET  F  ABVM 

(procedure 

in 

RPT-3 .PRG) 

*  ; 

*  i 

*1**4 

OUT_INFO 

(procedure 

in 

►  *  *  4 

RPT- 3 .PRG) 

PROCEDURE  add_awds 
* 

*  procedure  to  aggregate  award  information  by  vendor 

* 

SELECT  1 
GOTO  TOP 
o 

?  "Report  3  -  Quality  Vendor  Program  Information" 

? 

?  "No."  AT  29,  "Award"  AT  36,  "Diff"  AT  46,  “Diff"  AT  55,  "Bus"  AT  64,  ,- 
"Overall"  AT  72 

?  "CAGE"  AT  1,  "Vendor  Name"  AT  7,  "Awds"  AT  28,  "Dollars"  AT  36,  ,- 
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“Awds"  AT  46,  “Dollars"  AT  54,  “Sz"  AT  65,  “Mf"  AT  69,  "ABVM"  AT  73 
SCAN 

mcage  »  cage_code 

*  now  use  dwarfdb  to  find  appropriate  awards  for  vendor 

SELECT  2 
numbawds  *  0 
numb_dif f  =  0 
sum_value  «  0.0 
sum_diff  «  0.0 
SCAN 

IF  mcage  =  cage_code 


mfsc  »  SUBSTR(nsn, 1,4) 
numb_f_awd  »  0 
numb_f_dif  =  0 
sum_f _valu  «  0.0 
sumfdif f  =  0.0 
DO  sum_fsc 
DO  sum_cage 
* 

SELECT  1 

IF  qual_vnd_p  =  'y 1 
o 

?  mcage  PICTURE  "XXXXX"  AT  1 
??  mfsc  PICTURE  "XXXX"  AT  10 
??  numb_f_awd  PICTURE  "9999"  AT  28 
??  sum_f_valu  PICTURE  "9999999.99"  AT  33 
??  numbfdif  PICTURE  "9999"  AT  45 
??  sum_f_dif f  PICTURE  "9999999.99"  AT  51 
abvmsc  =  0.0 
DO  getfabvm 

??  abvmsc  PICTURE  "999.9"  AT  73 
ENDIF 
SELECT  2 
* 

ENDIF 

ENDSCAN 

*  go  back  to  vendor  file 

SELECT  1 
DO  out_info 
ENDSCAN 
RETURN 


Procedure:  SUM  FSC 


Called  by:  ADD_AWDS 


(procedure  in  RPT-3.PRG) 


PROCEDURE  sum_fsc 
* 

*  add  statistics  for  awards  of  current  fsc  and  cage 

* 

SCAN  FOR  (mfsc  =  SUBSTR(nsn, 1,4) )  .AND.  (mcage  =  cage_code) 
* 

numb_f_awd  =  numb_f_awd  +  1 
sum_f_valu  =  sum_f_valu  +  total_cost 
IF  differentl  >  0.0 

numb_f_dif  =  numb_f_dif  +  1 
sum_f_diff  =  sum_f_diff  +  differentl 
ENDIF 


LASTREC=RECNO ( ) 
ENDSCAN 
GOTO  LASTREC 
RETURN 
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Procedure :  SUM  CASE 


Called  by:  ADD_AWDS 


(procedure  in  RPT-3.PRG) 


PROCEDURE  sum_cage 
* 

*  add  fsc  statistics  for  cage  code 

* 

numb  awds  >  numb_awds  +  numb_f_awd 
sum_value  «  sumvalue  ♦  sum_f_valu 
IF  sum_f_diff  >  0.0 

numb_diff  «  numb_diff  +  numb_f_dif 
sum_diff  «  sum_diff  +  sum_f_diff 
END  IF 
RETURN 


Procedure:  OUT  INFO 


Called  by:  ADDAWDS 


(procedure  in  RPT-3.PRG) 


Calls:  GET  ABVM 


(procedure  in  RPT-3.PRG) 


PROCEDURE  out  info 


write  output  for  appropriate  vendors 


IF  qual_vnd_p 


?  mcage  PICTURE  "XXXXX"  AT  1 

??  vend  name  PICTURE  "XXXXXXXXXXXXXXXXXXXX"  AT  7 

??  numbawds  PICTURE  “9999"  AT  28 

??  sumvalue  PICTURE  "9999999.99"  AT  33 

??  numbdiff  PICTURE  "9999"  AT  45 

??  sumdiff  PICTURE  "9999999.99"  AT  51 

??  typeorg  PICTURE  "X"  AT  65 

??  manufactur  PICTURE  "X"  AT  70 

abvmsc  »  0.0 

DO  get_abvm 

??  abvm  sc  PICTURE  "999.9"  AT  73 
ENDIF 


Procedure :  GET  ABVM 


Called  by:  OUT_INFO 


(procedure  in  RPT-3.PRG) 


PROCEDURE  get_abvm 
* 

*  fetch  abvm  rating  information 

* 

SELECT  3 
GOTO  TOP 
SEEK (mcage) 

IF  FOUND  () 

abvm_sc  =  overall_sc 
ELSE 

abvm_sc  =  0.0 
ENDIF 
SELECT  1 
RETURN 


Procedure:  GET  F  ABVM 
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•!  Called  by:  ADD_AWDS  (procedure  in  RPT-3.PRG) 

*  I 

•I.........*..............,................................... 

PROCEDURE  get_f_abvm 

* 

*  fetch  abvm  fee  rating  information 

* 

SELECT  4 
GOTO  TOP 
SEEK (mcage+mf sc ) 

IF  FOUND  () 

abvm_ac  »  overall_sc 
ELSE 

abvmsc  »  0.0 
END  IF 
SELECT  1 
RETURN 


Procedure :  GET_OTHR 

Called  by-.  RPT-3.PRG 

Uses:  BIDVEN.DBF 
:  SOLDATA . DBF 


PROCEDURE  get_othr 
* 

*  temporary  procedure  to  open  other  database  files 

*  to  be  used  by  this  report 

* 

CLOSE  DATABASES 
USE  bidven  IN  5 
USE  soldata  IN  6 
CLOSE  DATABASES 
RETURN 

* :  EOF:  RPT-3.PRG 


* 

* 


♦ 

★ 


Program:  C:\DATA\DBASE\RPT-4.PRG 

System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  07/29/93  14:45 

Called  by:  BARPOP  (procedure  in  MAIN_MNU . PRG) 

Uses:  VRF-RATE . DBF 
:  DWARFDB . DBF 
:  BIDVEN.DBF 
:  WORKPERF . DBF 
:  DVRS101 .DBF 
:  DVRS701 . DBF 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


?  "in  report  4" 
USE  vrf-rate 
USE  dwarfdb  IN  2 
USE  bidven  IN  3 
USE  workperf  IN  4 
USE  dvrslOl  IN  5 
USE  dvrs701  IN  6 
CLOSE  DATABASES 
RETURN 


*:  EOF:  RPT-4.PRG 
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Program :  C : \DATA\DBASE\RPT- 5 . PRG 


System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  07/29/93  14:46 

Called  by:  BARPOP  (procedure  in  MAIN_MNU.PRG) 

Uses:  DVRS00UD .DBF 
:  DVRS  00UQ.  DBF 
:  DVRS00PD.DBF 
:  DVRS00PQ.DBF 
:  DVRS00UD . DBF 
:  DVRS00CQ . DBF 
:  DVRSOOCD . DBF 
:  DVRS0A1 .DBF 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


?  "in  report  5" 
USE  dvrsOOud 
USE  dvrsOOuq  IN  2 
USE  dvrsOOpd  IN  3 
USE  dvrsOOpq  IN  4 
USE  dvrsOOdd  IN  5 
USE  dvrsOOcq  IN  6 
USE  dvrsOOcd  IN  7 
USE  dvrsOal  IN  8 
CLOSE  DATABASES 
RETURN 

*:  EOF:  RPT-5.PRG 


Program:  C:\DATA\DBASE\RPT-6.PRG 

System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  07/29/93  14:46 

Called  by:  BARPOP  (procedure  in  MAIN_MNU. PRG) 

Uses:  DWARFDB . DBF 
:  BIDVEN.DBF 
:  SOLDATA . DBF 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


?  "in  report  6" 
USE  dwarfdb 
USE  bidven  IN  2 
USE  soldata  IN  3 
CLOSE  DATABASES 
RETURN 

*:  EOF:  RPT-6.PRG 


*:  Procedure  file:  C:\DATA\DBASE\RPT-7.PRG 
*  . 

*:  System:  ABVM  Decision  Support  System 

*  :  Author : 

* :  Copyright  (c)  1993, 

*:  Last  modified:  08/12/93  15:15 
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Procs  k  Pncts 


SETPFILS 
BRK_FSC 
COMPLATE 
ADD_LATE 
TAB_CAT 
HDR7_FSC 
OUT_INFO_F 

Set  by:  BARPOP  (procedure  in  MAINMNU.PRG) 

Calls:  SETP_FXLS  (procedure  in  RPT-7.PRG) 

:  BRK_FSC  (procedure  in  RPT-7.PRG) 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


rpt-7 .prg 

program  to  compute  ABVM  program  award  information  (report  7) 


CLEAR 

DO  setp_fils 
SELECT  1 
DO  brk_fsc 
CLOSE  DATABASES 
RETURN 


Procedure :  SETP_FILS 

Called  by:  RPT-7. PRG 

Uses:  DWARFDB . DBF 
:  DVRS101 .DBF 
:  DVRS701 . DBF 

Indexes :  AWDCONT . NDX 
:  A101CONT.NDX 
:  A701PIIN.NDX 


PROCEDURE  setpfils 
* 

*  sets  up  database  files  to  be  used  for  this  report 

* 

*  area  1  x=>  dwarfdb 

*  area  2  ==>  dvrslOl 

*  area  3  ==>  dvrs701 

* 

USE  dwarfdb 
SELECT  1 

ERASE  awdcont . ndx 

INDEX  ON  SUBSTR (nsn, 1, 4) +contract_n  TO  awdcont 

* 

USE  dvrslOl  IN  2 
SELECT  2 

ERASE  alOlcont.ndx 

INDEX  ON  SUBSTR (cont_line, 1, 13)  TO  alOlcont 
* 

USE  dvrs701  IN  3 
SELECT  3 

ERASE  a701piin.ndx 

INDEX  ON  SUBSTR (piin_clin, 1, 13)  TO  a701piin 

* 

RETURN 


Procedure :  BRK_FSC 
Called  by:  RPT-7. PRG 
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(procedure  in  RPT-7.PRG) 
(procedure  in  RPT-7.PRG) 
(procedure  11*  RPT-7.PRG) 
(procedure  in  RPT-7.PRG) 


PROCEDURE  brkfsc 
* 

*  procedure  to  track  performance  award  information  by  fsc 

• 

EFFECT  1 
GOTO  TOP 
7 

?  "Report  7  -  ABVM  Program  Award  Performance" 

7 

SCAN 

mfsc  *  SUBSTRlnsn, 1,4) 

*  reset  fsc  statistics 

numb_delv  *  o 
late_delv  *  o 
late_tot  «  0 
a_numb  »  0 
a_late  -  0 
a_days  >  0 
dnumb  «  o 
d_late  *  0 
d_days  *  0 
nnumb  =  0 
n_late  *  0 
n_days  •  0 

*  write  header  for  fsc  output 
DO  hdr7_fsc 

ktype  s  "  ” 

SCAN  FOR  mfsc  =  SUBSTR (nsn, 1 , 4 ) 
mcont  =  contract_n 

IF  abvmclaus  =  "y” 
ktype  =  "a" 

IF  differentl  >  0.0 
ktype  =  ”d" 

ENDIF 

ELSE 

ktype  =  "n" 

ENDIF 

*  now  use  dvrslOl  to  find  performance  for  given  award 

SELECT  2 
SEEK (mcont) 

IF  FOUND () 

*  compute  whether  delinquent 
late_days  =  0 

DO  comp_late 
DO  add_late 
ELSE 

*  do  nothing;  move  to  next  contract 
ENDIF 

SELECT  1 

LASTREC  =  RECNOO 
ENDSCAN 
GOTO  LASTREC 
DO  out_info_f 
ENDSCAN 
RETURN 


Calls:  HDR7FSC 
:  COMP~LATE 
:  ADD_LATE 
:  OUT  INFO  F 


Procedure :  COMP  LATE 
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Called  by:  BRK_FSC 


(procedure  in  RPT-7.PRG) 


PROCEDURE  comp_late 

* 

*  determine  if  particular  contract  was  delinquent 

* 

late_days  *  ship_dt  -  deliv_dt 
IF  late_days  <  0 
late_days  =  0 
END  IF 
RETURN 


Procedure :  ADD  LATE 


Called  by:  BRKFSC 


Calls:  TAB  CAT 


(procedure  in  RPT-7.PRG) 
(procedure  in  RPT-7.PRG) 


PROCEDURE  add_late 
* 

*  aggregate  statistics  on  late  deliveries  for  fsc 

* 

IF  ship_dt  >  CTOD( "01/01/70") 
numbdelv  =  numbdelv  +  1 
IF  late_days  >  0 

late_delv  =  late_delv  +  1 
late_tot  »  late_tot  +  late_days 
ENDIF 

DO  tab_cat 
ENDIF 
RETURN 

*t**********************************************»*********************'* 
*  i 

*!  Procedure:  TAB  CAT 


Called  by:  ADDLATE 


(procedure  in  RPT-7.PRG) 


PROCEDURE  tab  cat 


*  aggregate  statistics  by  abvm  category 


*  abvm,  no  differential 

CASE  ktype  =  "a" 

a_numb  =  a_numb  +  l 
IF  late_days  >  0 

ablate  =  a_late  +  1 
adaya  =  a_days  +  late_days 
ENDIF 

*  abvm,  with  differential 

CASE  ktype  =  "d" 

d_numb  =  d_numb  +  1 
IF  late_days  >  0 

d_late  =  d_late  +  1 
d_days  =  d_days  -  late_days 
ENDIF 

*  non -abvm 


CASE  ktype  =  "n" 

n_numb  -  n_numb  +  1 
IF  late_days  >  0 
n  late  =  n_late  h 
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n_days  »  n_days  +  late_days 
END  IF 
END CASE 
RETURN 


Procedure :  HDR7FSC 

Called  by:  BRK_FSC  (procedure  in  RPT-7.PRG) 


PROCEDURE  hdr7_f sc 

? 

?  "ABVM"  AT  19,  "ABVM"  AT  19,  "Non"  AT  39 

:•  ”FSC  «  "  AT  1 

??  mfsc  PICTURE  "XXXX"  AT  10 

??  "Diff"  AT  19,  "No  Diff"  AT  28,  "ABVM"  AT  39,  "Total"  AT  48 
? 

RETURN 


*  1  «  *  1 

*  ! 

*  ; 

Procedure :  OUT_INFO_F 

*  ! 

Called  by:  BRKFSC 

(procedure  in  RPT-7.PRG) 

*  i 

PROCEDURE  out  info  f 


*  write  output  for  fsc 

* 

?  ”%  delinquent"  AT  1 

d_rate  =  100 . 0  *  d_late  /  d_numb 

??  d  rate  PICTURE  "999.9"  AT  18 

a_rate  =  100.0  *  a_late  /  a_numb 

??  a_rate  PICTURE  "999.9"  AT  29 

n_rate  =  100 . 0  *  n_late  /  n_numb 

??  n_rate  PICTURE  "999.9"  AT  39 

late_rate  =  100.0  *  latedelv  /  numb_delv 

??  laterate  PICTURE  "999.9"  AT  48 

?  "avg  days  late"  AT  1 

d_ave  =  d_days  /  d_late 

??  dave  PICTURE  "999.9"  AT  18 

a_ave  =  a_days  /  a_late 

??  a_ave  PICTURE  "999.9"  AT  29 

nave  =  n_days  /  n_late 

??  n  ave  PICTURE  "999.9"  AT  39 

ave_late  =  late_tot  /  late_delv 

??  avelate  PICTURE  "999.9"  AT  48 

? 

WAIT 

RETURN 


*:  EOF:  RPT-7.PRG 


Program:  C:\DATA\DBASE\RPT-8.PRG 

System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  C7/29/93 


Called  by:  BARPOP 


(procedure  in  MAINMNU. PRG) 


Uses:  DWARFDB . DBF 
:  BIDVEN . DBF 
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:  MUD KEY. DBF 


Documented  08/12/93  at  15:17  SNAP!  version  5.01 


?  "in  report  8" 
USE  dwarfdb 
USE  bidven  IN  2 
USE  mudkey  IN  3 
CLOSE  DATABASES 
RETURN 

*:  EOF:  RPT-8.PRG 


Program:  C:\DATA\DBASE\RPT-9.PRG 

System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  07/29/93  14:46 

Called  by:  BARPOP  (procedure  in  MAIN_MNU . PRG t 

Uses:  DWARFDB. DBF 
:  BIDVEN. DBF 
:  MUDKEY . DBF 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


?  "in  report  9" 
USE  dwarfdb 
USE  bidven  IN  2 
USE  mudkey  IN  3 
CLOSE  DATABASES 
RETURN 

«:  EOF:  RPT-9.PRG 


*.***************************************************************************** 

Program:  C:\DATA\DBASE\RPT-10.PRG 

System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  07/28/93  15:18 

Called  by:  BARPOP  (procedure  in  MAIN_MNU . PRG) 

Uses:  VRF-RATE . DBF 

Indexes:  VRF-RATE.NDX 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


*  rpt-lO.prg 

*  program  to  list  ABVM  scoring  trends  (report  10) 

*  28  jul  93 

USE  vrf-rate 
ERASE  vrf-rate.ndx 

INDEX  ON  fsc_code+DTOC(score_date)  TO  vrf-rate 
SET  FIELDS  TO  fsc_code,  overall_sc,  scoredate 
GOTO  TOP 

7 

?  "PSC"  AT  1,  "Date"  AT  9,  "Score"  AT  19 
SCAN  WHILE  .NOT.  EOF ( ) 

IF  score_date  >*  CTOD ( "02/01/91" ) 

? 
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??  fsc_code  PICTURE  "xxxx"  AT  1 
??  acore_date  AT  8 
??  overall_sc  PICTURE  “999.9"  AT  20 
END  IF 
ENDSCAN 

CLOSE  DATABASES 
RETURN 

*:  EOF:  RPT-10.PRG 


Program:  C:\DATA\DBASE\RPT-11.PRG 

System:  ABVM  Decision  Support  System 
Author : 

Copyright  (c)  1993, 

Last  modified:  07/29/93  14:47 

Called  by:  BARPOP  (procedure  in  MAIN_MNU . PRG) 

Uses:  DWARFDB . DBF 
:  VENDOR. DBF 
:  OPENCON .DBF 

Documented  08/12/93  at  15:17  SNAP!  version  5.01 


?  "in  report  11" 
USE  dwarf db 
USE  vendor  IN  2 
USE  opencon  IN  3 
CLOSE  DATABASES 
RETURN 

*:  EOF:  RPT-ll.PRG 
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Prototype  ABVM  DSS  dBase  IV  Screens 


+ - + 

|  ==  ABVM  DSS  MAIN  MENU  ==  | 

|1  -  Summary  ABVM  Application  Statistics  | 

| 2  -  ABVM  Component  Score  Statistics  | 

| 3  -  Quality  Vendor  Program  Information  | 

| 4  -  ABVM  Implementation  Benefits  Indicators  | 

| 5  -  Challenge  Statistics  | 

| 6  -  ABVM  Buyer  Performance  | 

| 7  -  ABVM  Program  Award  Performance  | 

| 8  -  Center  Statistics  by  Vendor  Type  | 

| 9  -  Center  Statistics  by  Solicitation  Factors  | 

| A  -  ABVM  Score  Trends  | 

|B  -  Near-Term  Deliveries  on  Differential  Awards  | 

|X  -  EXIT  FROM  PROGRAM  | 


Press  number  of  mem.  choice,  or  highlight  and  press  <Enter> 
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Report 

1  -  Summary  ABVM  Application 

Statistics 

Number 

Percent 

Percent 

Average 

Average 

FSC 

Awards 

ABVM 

w/  Diff 

Diff  ($) 

Diff  (pet) 

1234 

3 

66.67 

66.67 

383.50 

63.92 

9876 

2 

100.00 

50.00 

1995.00 

39 . 90 

DSC 

5 

80 . 00 

60.00 

920.67 

44.55 

Press 

any  key  to 

continue . 
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Report  2  -  ABVM  Component  Score  Statistics 


Part  2.1 

-  Awardee 

ABVM 

Statistics 

total  awards  = 

5 

overall 

delivery 

quality 

number 

average 

average 

average 

abvm 

awards 

4 

89.8 

87 . 5 

91.3 

non-abvm 

awards 

1 

80.0 

80.0 

80 . 0 

all 

awards 

5 

87.8 

86.0 

89 . 0 

Press  any  key  to  continue . . . 

Part  2.2  -  Bidder  ABVM  Statistics 


score 

score 

FSC 

number 

total 

rated 

average 

#  ABVM 

ABVM 

non -ABVM 

ABVM 

PSC 

awards 

bids 

bids 

score  bid 

awards 

bids 

bids 

score 

1234 

3 

10 

6 

91.2 

2 

94.0 

88.3 

95.0 

9876 

Press 

2 

any  key  to 

5 

continue . . 

2 

88.0 

2 

88.0 

0.0 

87.0 
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Report  3  -  Quality  Vendor  Program  Information 


CAGE 

Vendor  Name 

No. 

Awds 

Award 

Dollars 

Diff 

Awds 

Diff 

Dollars 

Bus 

Sz 

Mf 

Overall 

ABVM 

00001 

1234 

1 

1000.00 

1 

667.00 

95.0 

00001 

9876 

1 

5000.00 

1 

1995.00 

99.0 

00001 

abracadabra  industri 

2 

6000 . 00 

2 

2662.00 

s 

y 

98 . 0 

00002 

lipps  inc 

0 

0.00 

0 

0.00 

i 

n 

73.0 

00003 

1234 

1 

500.00 

0 

0.00 

80.0 

00003 

inti  business  machin 

1 

500 . 00 

0 

0 . 00 

s 

y 

86.0 

00010 

Pittsburgh  elephant 

0 

0.00 

0 

0.00 

n  91.2 

99999 

9876 

1 

350.00 

0 

0.00 

77.0 

99999 

racine  industries 

1 

350.00 

0 

0.00 

s 

y  83.4 

Press  any  key  to  continue . . . 
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Report  7  -  ABVM  Program  Award  Performance 


PSC  - 

1234 

ABVM 

Diff 

ABVM 

No  Diff 

Non 

ABVM 

Total 

*  delinquent 
avg  days  late 

0.0 

***  .  * 

*  *  *  a  + 

*  +  *  + 

100.0 

14.0 

50.0 

14.0 

Press  any  key  to 

continue . 

FSC  = 

9876 

ABVM 

Diff 

ABVM 

No  Diff 

Non 

ABVM 

Total 

%  delinquent 
avg  days  late 

***  _  * 

***  * 

*  #  *  s  * 

★  *  *  * 

★  *  ★  * 

*  *  *  * 

*  *  *  * 

*  *  *  '  * 

Press  any  key  to 
Press  any  key  to 

continue . . 

continue- . 
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F  SC 

Dace 

Score 

1234 

02/01/91 

73.0 

1234 

02/1S/91 

78.0 

1234 

03/01/91 

88.0 

1234 

03/15/91 

83.0 

1234 

04/01/91 

89.0 

2000 

02/01/91 

75.0 

2000 

03/01/91 

77 . 0 

9876 

06/01/93 

87.0 

Press 

any  key  to 

continue 
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